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

我有一个vbscript，基本上可以根据文件名下载文件。我想获取文件列表并从该列表中删除远程文件

已下载的远程文件列表，重定向到downloads.txt\uU3K[systemdate]

已删除的基于项目1.的远程文件列表（成功下载后），重定向到deleted.txt\u[systemdate]

捕获下载/删除过程中的任何错误并 重定向到本地文件中的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