Batya

|
Posted: Thu Jul 14, 2005 17:35 Post subject: |
|
|
Блин, ступил, когда скрипт правил, чтоб на FTP работал. Вот нормальный вариант (входные параметры уже не нужны):
Code: | '=======================================
' Создание папки с именем системной даты
'=======================================
Dim WS
Set WS = WScript.CreateObject("WScript.Shell")
Dim NewFold
NewFold = Date
Wscript.Sleep 500
WS.SendKeys "{F7}" & NewFold & "{Enter}"
Set WS=Nothing
Wscript.Quit |
Также убрал проверку на наличие каталога - не знаю, как на FTP проверять. |
|