Автоматизация размножения файла под разным именем

[Flasher]

Работает?

Конечно, нет. Это даже проверять не имеет смысла.

[Zmy]

А я на вашем месте проверил бы, прежде чем что-либо утверждать.
Наверное, у вас что-то с системой не в порядке.

[Flasher]

Давайте не будем меня учить тому, чему я давно научен?
Убедитесь сами с простым запуском из файловой панели:

Код: Выделить всё

CreateObject("WScript.Shell").CurrentDirectory = "C:\"
File = "File Name.txt"
With CreateObject("Scripting.FileSystemObject")
	.CreateTextFile File, 1
	MsgBox .GetFile(File)
	MsgBox .GetFile("""" & File & """")
End With

[Zmy]

Так а зачем вы добавляете столько кавычек? Давайте уже по 8 кавычек с каждой стороны добавим. Двух достаточно.
Хоть с параметром, хоть без.

Код: Выделить всё

File = "C:\File Name.txt"
With CreateObject("Scripting.FileSystemObject")
   .CreateTextFile File, 1
   MsgBox .GetFile("" & File & "")
End With

[Flasher]

Вам бы залатать пробелы в изучении VBScript. Кавычки так не экранируются. Это делается иначе.

т. к. кавычки (запретные, кстати) передаются как часть имени.

Не в ту степь немного (недосып). Ничего там не передаётся. Забудьте про тестовые скрипты. Ошибка использования "%N" вместо %N в другом.
При сдваивании в поле "Параметры:" кавычки в отношении сепарации параметров съедаются, в итоге первым параметром пойдёт File, а не File Name.txt. Ругань возникает из-за отсутствия файла C:\File.

[Avada]

Igor_Gurov
В дополнение к идущей дискуссии — получите замечание за нарушение правил форума. Включая оверквотинг и вопрос "как запускать скрипты" (да, вопиюще глупый и неуместный с учётом наличия хотя бы этой темы, которую не просто так в "Автоматизации" прикрепили). Столь же неуместное полное цитирование предыдущих постов удалено.