Q: Требуется быстро создать каталог с произвольным именем, и сразу же зайти в него.
A:
'======================================================== ' Создание папки и переход в нее в TC
' В параметрах вызова из TC можно указать название папки, ' иначе будет вызван диалог ввода имени папки '========================================================
Dim FSO, TCS, WS, TotalCmd, DirName, DirPath, MB Set FSO = CreateObject("Scripting.FileSystemObject") Set TCS = CreateObject("TCScript.Helper") Set WS = WScript.CreateObject("WScript.Shell") TotalCmd = """" & TCS.TCPath & "\totalcmd.exe"""
if WScript.Arguments.Count > 0 then DirName = WScript.Arguments(0) else DirName = InputBox("Введите имя создаваемой папки:", "Создание папки", "") end if if Len(DirName) = 0 then MB = MsgBox("Не задано имя папки!", vbOKOnly + vbExclamation, "Создание папки") WScript.Quit end if DirPath = TCS.GetSrcPath & "\" & DirName
if not FSO.FolderExists(DirPath) then FSO.CreateFolder(DirPath) end if WS.Run TotalCmd & " /o /s """ & DirPath & """"
Set FSO = Nothing Set TCS = Nothing Set WC = Nothing WScript.Quit
