使用VBS自动删除已经从FTP下载下来的文件
来源:互联网 发布:单片机 乘法指令 编辑:程序博客网 时间:2024/05/16 18:59
经常要从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下载下来的文件
- 从FTP获取自动下载文件的PHP类
- 使用vbs下载文件
- 使用vbs下载文件
- 使用FTP命令自动完成文件的上传和下载
- 使用FTP下载目录,即FTP命令批量自动下载的bat文件
- 自动删除 最近 N 日 的 文件 vbs
- 从ftp下载文件
- 使用Eclipse恢复已经删除的文件
- wget用法wget是一个从网络上自动下载文件的自由工具。它支持HTTP,HTTPS和FTP协议,可以使用HTTP代理.
- ftp文件下载与删除
- 解决从ftp下载内核后自动启动的问题
- 解决从ftp下载内核后自动启动的问题
- 从FTP服务器下载文件
- 从ftp服务器下载文件
- 使用FTP下载文件
- Linux shell中使用ftp自动下载上传文件
- Java 使用ftp的方式上传文件到linux,并实现删除,下载
- Linux的系统信号(signal)类型与机制
- symbian 入门简明教程
- 修改网卡IP信息的批处理文件
- 怎么学好软件、找不到好的学习方法,求救!
- 修改Ubuntu的环境变量$PATH
- 使用VBS自动删除已经从FTP下载下来的文件
- 【C/C++】实现一个string类的构造函数、析构函数和赋值函数
- Symbian OS C++学习
- JS产生随机数
- ZOJ Problem Set - 2060
- browser
- 圣诞节的幽默
- 关于shared pool的深入探讨(六)-高Latch竞争案例
- 网页栅格系统研究(2):蛋糕的切法