alpap для папок почти тоже самое. Прописать надо, соответстственно, в контекстном меню для папок:
Код:
Set FSO = CreateObject("Scripting.FileSystemObject")
Set WshShell = WScript.CreateObject("WScript.Shell")
'----------------------------------------------------
If WScript.Arguments.Count = 1 Then
sFolder = WScript.Arguments.Item(0)
End If
Set Folder = FSO.GetFolder(sFolder)
'-------------------------------------
'Путь для создания
PathName = FSO.GetParentFolderName(sFolder)
'----------------------
' Имя папки
Name=folder.ShortName
'-----------------------------------------------
'Создание
'Здесь я добавил проверку и открытие файла, (мне так удобнее).
'Если тебе проверки не нужны оставь только строку fso.CreateTextFile(PathName & "\" & Name & ".txt")
If FSO.FileExists(PathName & "\" & Name & ".txt") Then
WScript.Echo "Документ ''"& Name & ".txt" & "'' - уже существует."
WshShell.Run("Explorer" &" " & PathName & "\" & Name & ".txt")
WScript.Quit 0
Else
fso.CreateTextFile(PathName & "\" & Name & ".txt")
End If
WshShell.Run("Explorer" &" " & PathName & "\" & Name & ".txt")
