使用FTP而不使用ActiveX上载和下载文件

Question

我希望VBScript使用FTP上传和下载文件而不使用ActiveX程序。

请注意，请单独下载代码并单独上传代码，并且必须上传文件而不是文件夹。

例如：

Set oShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
path = "test.txt"

FTPUpload(path)

Sub FTPUpload(path)
  On Error Resume Next
  Const copyType = 16
  waitTime = 80000
  FTPUser = "user"
  FTPPass = "pass"
  FTPHost = "www.domain.com"
  FTPDir = "/htdocs/"
  strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
  Set objFTP = oShell.NameSpace(strFTP)
  'objFTP.NewFolder "FTP Backup"    
  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
  If objFSO.FolderExists(path) Then
    Set objFolder = oShell.NameSpace(path)
    Wscript.Echo "Uploading folder " & path & " to " & strFTP
    objFTP.CopyHere objFolder.Items, copyType
  End If
  If Err.Number <> 0 Then
    Wscript.Echo "Error: " & Err.Description
  End If
  WScript.Sleep waitTime
End Sub