Question

我必须使用VBScript在FTP服务器中创建一个文件夹。现在我可以将我的机器中的本地文件保存到FTP服务器中的文件夹中。但我必须使用VBScript代码在FTP中创建一个文件夹，并将本地文件保存到该文件夹。任何人都可以帮我解决这个问题吗？我使用的代码如下。

Set objFSO = Wscript.CreateObject("Scripting.FileSystemObject")
Set oShell = CreateObject("Shell.Application")
path ="D:\imgs\images (2).jpg"

FTPUpload(path)

Sub FTPUpload(path)
  Const copyType = 16
  waitTime = 10000
  FTPUser = "ftp_username"
  FTPPass = "ftp_password"
  FTPHost = "ipaddress"
  FTPDir = "/ftpDirectory/" 
  strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
  Set objFTP = oShell.NameSpace(strFTP)
  If objFSO.FileExists(path) Then
    Set objFile = objFSO.getFile(path)
    strParent = objFile.ParentFolder
    Set objFolder = oShell.NameSpace(strParent)
    Set objItem = objFolder.ParseName(objFile.Name)
    WScript.Echo "Uploading file " & objItem.Name & " to " & strFTP
    objFTP.CopyHere objItem, copyType
  End If
  'WScript.Echo "Uploaded Successfully"

在FTP服务器中创建文件夹

0 个答案: