[Roman3D]

У меня аналогичная задача - нужен скрипт, который создаёт три директории с заданными именами и нужно повесть его на кнопку в Total Commander.

Скрип набросал на основе тех, что тут публиковались

Код:

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder "Новая папка 1"
FSO.CreateFolder "Новая папка 2"
FSO.CreateFolder "Новая папка 3"

Set FSO = Nothing 
WScript.Quit

Повесил его на кнопку в TC.
Да, он создаёт директории, но только там, где сам расположен, а не на активной панели TC.

Что нужно ещё прописать, чтобы директории создавались там, где нужно?
Помогите, пожалуйста.

[Petya V4sechkin]

Повесил его на кнопку в TC.

Там ведь можно задать дополнительные параметры? Добавьте %P (это текущая панель), а в скрипте примерно так:

Код:

Set FSO = CreateObject("Scripting.FileSystemObject")
FSO.CreateFolder WScript.Arguments(0) & "Новая папка 1"
FSO.CreateFolder WScript.Arguments(0) & "Новая папка 2"
FSO.CreateFolder WScript.Arguments(0) & "Новая папка 3"

Set FSO = Nothing 
WScript.Quit

[Roman3D]

Petya V4sechkin, огромное спасибо, ты сделал мою жизнь проще

[Roman3D]

а в скрипте примерно так: »

Есть проблемка.
Если в имени директории есть пробел, то скрипт поднимается выше, если в следующей тоже есть пробел, то ещё выше и так может вплоть до корня диска.
И создаёт директории уже там. Причём имена получаются составными.
И ещё момент - если в имени создаваемой директории есть пробел (например "New folder 1") то создаётся одна директория и скрипт вываливается с ошибкой. Если пробела нет ("Newfolder1"), то создаются все три.

Вот результат попытки создать три новых дирекории в "Second folder", вдруг непонятно написал -


Можно как-то обойти вопрос с пробелами в именах? Очень уж не хочется директории переименовывать...

[Iska]

Roman3D, вот точно такой же код:

Скрытый текст

Код:

Option Explicit

Dim strFolder

If WScript.Arguments.Count = 1 Then
	strFolder = WScript.Arguments.Item(0)
	
	With WScript.CreateObject("Scripting.FileSystemObject")
		If .FolderExists(strFolder) Then
			.CreateFolder .BuildPath(strFolder, "Новая папка 1")
			.CreateFolder .BuildPath(strFolder, "Новая папка 2")
			.CreateFolder .BuildPath(strFolder, "Новая папка 3")
		End If
	End With
End If

WScript.Quit 0

Вы его сохраняете в файл с расширением .vbs. В Total Commander'е создаёте примерно такую кнопку:

Скрытый текст

В поле «Параметры» указываете два параметра: путь к этому сохранённому скрипту и «%P», не забыв обрамить их кавычками и разделив пробелом.

[Roman3D]

Iska, ну вроде всё норм!
Только кнопку сделал так -



Спасибо!

[Iska]

Roman3D, можно и так, если у Вас умолчальным обработчиком для .vbs выступает wscript.exe (у меня же — консольный cscript.exe, я так назначил, мне так проще и удобнее работать из-под Far Manager'а).