小编use*_*773的帖子

我正在尝试通过ftp发送文件,然后检查进程是否成功完成,如果是,我将删除原始文件并仅保留在FTP上的目标文件夹中发送的文件.

我设法修补了连接到FTP并发送文件的脚本,但我不确定如何与FTP上的文件夹交叉检查原始文件夹,以便我可以确定副本是否成功.

这是通过FTP发送文件的代码,在测试中它成功发送所有文件,但我必须在删除之前检查

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

path = "D:\test\"

FTPUpload(path)
Sub FTPUpload(path)

On Error Resume Next

Const copyType = 16

'FTP Wait Time in ms
waitTime = 80000

FTPUser = "test"
FTPPass = "testtest"
FTPHost = "ftp.test.com"
FTPDir = "/htdocs/test/"

strFTP = "ftp://" & FTPUser & ":" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)


'Upload single file       
If objFSO.FileExists(path) Then

Set objFile = objFSO.getFile(path)
strParent = objFile.ParentFolder
Set objFolder = …