使用VBS自動刪除已經從FTP下載下來的文件

經常要從FTP上下載文件，然後要把已經下載下來的文件刪除。下載是用快車的，由於文件太多，手動刪除費事，所以師傅教我使用這個VBS文件來幫助自己，只需要運行一下就可以刪除已經下載完成的文件。以下爲VBS的具體內容：

 

Dim wsh

Set fso = CreateObject("Scripting.FileSystemObject") '創建fos控件
Set f = fso.GetFolder("H:/網站備份") '獲取指定目錄，是指下載下來的文件存放的位置
path = fso.GetSpecialFolder(0) '獲取系統文件夾
Set fc =f.Files '獲取文件列表

'生成文件列表
For Each f1 in fc
 filename=f1.name
 if right(filename,1)<>"!" Then '如果文件名右側第一個字母不是! 則放入文件列表中。
  fls=fls & filename & "||"
 End If
Next
delFile=split(fls,"||")

'創建批處理文件。
Set ftpBat=fso.CreateTextfile(path & "/delFtpFile")
ftpBat.write("open FTP地址" & vbCrLf)
ftpBat.write("用戶名" & vbCrLf)
ftpBat.write("密碼" & vbCrLf)
'ftpBat.write("cd 進入到相關目錄下" & vbCrLf)
For i=0 to UBound(delFile)-1
 ftpBat.write("delete " & delFile(i) & vbCrLf)
Next
ftpBat.write("bye")
ftpBat.close

Set wsh = CreateObject("WSCRIPT.SHELL")
wsh.Run "cmd /c ftp -s:" & path & "/delFtpFile", 0, true
fso.deleteFile(path & "/delFtpFile")

Set wsh=nothing
Set ftpBat=nothing
Set fc=nothing
Set f=nothing
Set fso=nothing