VBS/WSH/JS - [решено] vbs скрипт - создание папки

[DPCKA]

Iska, спасибо.

[Petya V4sechkin]

Цитата Roman3D:



Повесил его на кнопку в 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]

Цитата Petya V4sechkin:



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

VBS/WSH/JS - [решено] vbs скрипт - создание папки

Есть проблемка.

Если в имени директории есть пробел, то скрипт поднимается выше, если в следующей тоже есть пробел, то ещё выше и так может вплоть до корня диска.

И создаёт директории уже там. Причём имена получаются составными.

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



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





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

[Iska]

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



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

[spoiler]Код:

[/spoiler]

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

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'е создаёте примерно такую кнопку:



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

[spoiler][/spoiler]




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

[Roman3D]

Iska, ну вроде всё норм!

Только кнопку сделал так -







Спасибо!

[Roman3D]

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