使用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

 

你可能感兴趣的:(使用VBS自动删除已经从FTP下载下来的文件)