[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», не забыв обрамить их кавычками и разделив пробелом.