Flasher
|
 Posted: Wed Jun 03, 2015 13:18 Post subject: |
 |
|
Не поздновато ли объяснять, что такие вещи общих вопросов не касаются?
| Code: | ' Параметры: "<путь к файлу-исходнику>" <строка поиска>
' Путь запуска - пустой
Dim WSH : Set WSH = CreateObject("WScript.Shell")
CD = WSH.CurrentDirectory : Set A = WScript.Arguments
With CreateObject("Scripting.FileSystemObject")
If CD = .GetParentFolderName(A(0)) Then WScript.Quit
NF = CD & "\" & .GetFileName(A(0)) : .OpenTextFile(NF, 2, True)._
Write Replace(.OpenTextFile(A(0)).ReadAll, "\" & A(1) & "\", "\" & .GetFileName(CD) & "\")
End With : WSH.Run """%COMMANDER_EXE%"" /O /S /L=""" & NF & """" |
_________________
Автору сборки TC Image (Andrey_A) настоятельно рекомендуется не распространять на иных ресурсах любую предоставленную мной где-либо техническую информацию по автоматизации и оптимизации в работе с ТС и системой.
Last edited by Flasher on Wed Jun 03, 2015 21:09; edited 1 time in total |
|
Rules
Search
FAQ
Memberlist
Usergroups
Register
Profile
Log in to check your private messages
Log in
