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 

此代码没有按然而，“T工作时，我与任何本地目录一样d更换ftp://user:password@ftpserver/url-path：/，它的工作原理：S

如何让它为我的FTP工作太

Answer 1

FileSystemObject对象不苏pport FTP。 Shell自动化对象的确如此，但它似乎并不喜欢NewFolder方法。这让我们使用无人参与的FTP会话自动执行FTP.exe命令。它可能看起来像这样。

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