如何从mget生成的文件列表中删除FTP文件？

Question

我有一个基本上按文件名下载文件的vbscript。我想获取文件列表并根据该列表删除远程文件。

1. 已下载的远程文件列表，重定向到downloads.txt_ [systemdate]
2. 基于已删除项目 1。的远程文件列表（成功下载后），重定向到deleted.txt_ [systemdate]
3. 捕获下载/删除过程中的任何错误 重定向到本地
中的errors.txt __ [systemdate]

以下是我现有的vbscript。我现在是该计划的新手。非常感谢任何帮助。

' VBScript Client - Inbound Get FTP Files and Move to 'backup' folder 
Option Explicit 
Dim objFSO, objMyFile, objShell, strFTPScriptFileName, strFilePut 
Dim strLocalFolderName, strFTPServerName, strLoginID 
Dim strPassword, strFTPServerFolder 

'Set FTP options 
strLocalFolderName = "E:\TEMP\VENDOR" 
strFTPServerName = "HOSTNAME" 
strLoginID = "USERNAME" 
strPassword = "PASSWORD" 
strFTPServerFolder = "/SGAII/CCDATA/DEPOSITS" 
'Set File name 
strFilePut = "./S*" 

'Generate FTP command 
strFTPScriptFileName = strLocalFolderName & "\FTP_Inbound_Files_from_Client.txt" 
Set objFSO = CreateObject("Scripting.FileSystemObject") 
If (objFSO.FileExists(strFTPScriptFileName)) Then 
objFSO.DeleteFile (strFTPScriptFileName) 
End If 

Set objMyFile = objFSO.CreateTextFile(strFTPScriptFileName, True) 
objMyFile.WriteLine ("open " & strFTPServerName) 
objMyFile.WriteLine (strLoginID) 
objMyFile.WriteLine (strPassword) 
objMyFile.WriteLine ("cd " & strFTPServerFolder) 
objMyFile.WriteLine ("bin") 
objMyFile.WriteLine ("lcd " & strLocalFolderName) 
objMyFile.WriteLine ("prompt off") 
objMyFile.WriteLine ("mget " & strFilePut) 
objMyFile.WriteLine ("bye")

'Execute the FTP script. 
Set objShell = WScript.CreateObject( "WScript.Shell" ) 
objShell.Run "ftp -s:" & Chr(34) & strFTPScriptFileName & Chr(34), , True