shveicar

|
Posted: Fri Jul 22, 2011 03:00 Post subject: |
|
|
Второй это какой? у меня сейчас верхняя часть скрипта выглядит Code: | Option Explicit
Dim FSO, WSH, F, FF, Mode, Str1, Str2, Errors, i, FZ, ArrZ
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WSH = CreateObject("WScript.Shell")
Set Errors = CreateObject("Scripting.Dictionary")
Str1 = InputBox("Введите искомую строку:", "Замена текста в файлах с помощью шаблонов")
With WScript
Str2 = .Arguments(0)
Mode = .Arguments(1)
FF = .Arguments(2)
If .Arguments.Count > 3 Then FZ = .Arguments(3)
End With | ну а дальше все как в оригинале у Batya. |
|