[ul9]

Спасибо Вам. А как его использовать? Приведите пожалуйста пример.

Код:

Sub Usage()
	WScript.Echo "Usage: cscript.exe //nologo " & WScript.ScriptName & " " & _
		"/FolderForScan:<folder> " & _
		"/FileExtension:<extension> " & _
		"/FileWhatFind:<file> " & _
		"/FileReplaceBy:<file>"
End Sub

[Iska]

А как его использовать? »

Если его запустить — он напишет, как:

Код:

cscript.exe //nologo Script.vbs /FolderForScan:<folder> /FileExtension:<extension> /FileWhatFind:<file> /FileReplaceBy:<file>

Приведите пожалуйста пример. »

Пример:

Код:

cscript.exe //nologo "c:\My Scripts\Script.vbs" /FolderForScan:"E:\Песочница\0192" /FileExtension:"htm" /FileWhatFind:"E:\Песочница\0191\Найти это.txt" /FileReplaceBy:"E:\Песочница\0191\заменить этим.txt"

Естественно, для текущего каталога указывать пути не обязательно, равно как и заключать пути в кавычки, если в них нет пробельных символов. Если Вы не используете что-либо наподобие Far Manager'а — проще всего вписать это в пакетный файл.

[ul9]

А он почему-то в подпапках не ищет... Может я что-то не так делаю.

Всё, разобралась. Причина была в путях. Всё работает отлично. Большое спасибо!

[ul9]

Iska, очень уж ваш скрипт хорош и удобен!
Я хотела бы ещё спросить у вас. Возможно ли задать условие для запуска нужного кода?

Код:

cscript.exe //nologo "c:\My Scripts\Script.vbs" /FolderForScan:"E:\Песочница\0192" /FileExtension:"htm" /FileWhatFind:"E:\Песочница\0191\Найти это.txt" /FileReplaceBy:"E:\Песочница\0191\заменить этим.txt"

Запускаем скрипт и появляется msgbox с кнопками 1, 2, 3
В зависимости от того, какую нажали происходит выполнение нужного куска кода.

Код:

if 1
cscript.exe //nologo "c:\My Scripts\Script.vbs" /FolderForScan:"E:\Песочница\0001" /FileExtension:"htm" /FileWhatFind:"E:\Песочница\01\Найти это.txt" /FileReplaceBy:"E:\Песочница\01\заменить этим.txt"

if 2
cscript.exe //nologo "c:\My Scripts\Script.vbs" /FolderForScan:"E:\Песочница\0002" /FileExtension:"htm" /FileWhatFind:"E:\Песочница\02\Найти это.txt" /FileReplaceBy:"E:\Песочница\02\заменить этим.txt"

if 3
cscript.exe //nologo "c:\My Scripts\Script.vbs" /FolderForScan:"E:\Песочница\0003" /FileExtension:"htm" /FileWhatFind:"E:\Песочница\03\Найти это.txt" /FileReplaceBy:"E:\Песочница\03\заменить этим.txt"

Конечно можно создать три батника и запускать каждый, в зависимости от нужды. Но может есть более элегантное решение

[Iska]

Конечно можно создать три батника и запускать каждый, в зависимости от нужды. Но может есть более элегантное решение »

Это вполне нормальное решение для повторного использования кода. Аналогичного результата можно добиться создав три ярлыка с соответствующей командной строкой в каждом.

[ul9]

Это вполне нормальное решение для повторного использования кода. Аналогичного результата можно добиться создав три ярлыка с соответствующей командной строкой в каждом. »

На самом деле их значительно больше (около 15). Не хотелось бы на рабочем столе выстраивать их все в ряд

[Iska]

Создайте папку на Рабочем столе, в Главном меню, создайте панель на Панели задач. Туда и поместите ярлыки или пакетные файлы.

[ul9]

А через msgBox условие возможно реализовать или там только yes и no?

[Iska]

А через msgBox условие возможно реализовать или там только yes и no? »

Доступно максимум три кнопки, коллега.

[ul9]

Доступно максимум три кнопки, коллега. »

А если в cmd вывести?

echo 1 - green
echo 2 - red
и т.д.

Вводишь число и запускается скрипт. Я бы сама написала, но как эти условия задать без понятия, да ещё и связать с кнопками. Имею только общие представления по аналогии с яваскриптом.