VBscript, создать каталог в FTP

Question

Я хотел бы создать каталог в FTP, то имя каталога должно быть моим именем компьютера,

вот мой код,

Dim FoldertoCreate, filesys, newfolder, Ob 
Set Ob = Wscript.CreateObject("Wscript.Network") 
FoldertoCreate = "ftp://user:password@ftpserver/url-path/" & ob.ComputerName 
Set filesys = CreateObject("Scripting.FileSystemObject") 
If Not filesys.FolderExists(FoldertoCreate) Then 
    Set newfolder = filesys.CreateFolder(FoldertoCreate) 
End If 

Этот код Безразлично «т работать, однако, когда я заменить ftp://user:password@ftpserver/url-path с любым локальным каталогом как D: /, он работает: S

, как заставить его работать на мой фтп тоже

Answer 1

FileSystemObject не су pport FTP. Объект автоматизации оболочки делает, но ему, похоже, не нравится метод NewFolder. Это позволяет нам автоматизировать команду FTP.exe с помощью автоматической сессии FTP. Это может выглядеть примерно так.

strUser = "myusername" 
strPass = "mypassword" 
strHost = "ftp.myhost.com" 

Const ForWriting = 2 

Set objFso = CreateObject("Scripting.FileSystemObject") 
Set objFile = objFso.OpenTextFile("session.txt", ForWriting, vbTrue) 

With objFile 
    .WriteLine "OPEN " & strHost 
    .WriteLine "USER " & strUser 
    .WriteLine strPass 
    .WriteLine "mkdir sometestdirectory" 
    .Close 
End With 

strFTP = "%systemroot%\System32\ftp.exe -s:session.txt" 
Set WshShell = CreateObject("WScript.Shell") 
strFTP = WshShell.ExpandEnvironmentStrings(strFTP) 
WshShell.Run strFTP,, vbTrue 

objFso.DeleteFile "session.txt", vbTrue