使用VBS自动删除已经从FTP下载下来的文件
2010-01-22 18:33
821 查看
经常要从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
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下载下来的文件
- 使用ftp自动下载上传文件
- android下使用FTP上传文件、下载文件、新建目录、删除文件工具类
- Java代码使用FTPClient实现ftp文件上传下载和删除的功能
- Linux 利用shell中使用ftp自动下载上传文件
- wget是一个从网络上自动下载文件的自由工具,支持通过HTTP、HTTPS、FTP三个最常见的TCP/IP协议下载,并可以使用HTTP代理
- Java 使用ftp的方式上传文件到linux,并实现删除,下载
- wget用法wget是一个从网络上自动下载文件的自由工具。它支持HTTP,HTTPS和FTP协议,可以使用HTTP代理.
- Linux 利用shell中使用ftp自动下载上传文件
- Linux shell中使用ftp自动下载上传文件
- 使用FtpWebRequest 类操作(上传、下载和删除)FTP上的XML文件
- 使用FTP命令自动完成文件的上传和下载
- java 两个通过java代码操作FTP的类,上传下载删除,获取文件
- C#实现Ftp各种操作(上传,下载,删除文件,创建目录,删除目录,获得文件列表)
- Microsoft .NET Framework 2.0对文件传输协议(FTP)操作(上传,下载,新建,删除,FTP间传送文件等)实现汇总1
- Ubuntu与开发板之间使用ftp上传及下载文件
- Microsoft .NET Framework 2.0对文件传输协议(FTP)操作(上传,下载,新建,删除,FTP间传送文件等)
- java连接FTP、删除、下载文件的方法
- java 两个通过java代码操作FTP的类,上传下载删除,获取文件
- 上传文件到ftp 并下载,或删除