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

如何让它也适用于我的 ftp

Answer 1

FileSystemObject 不支持 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