VB6删除指定格式文件

[复制链接]
查看11 | 回复3 | 2013-8-24 12:27:00 | 显示全部楼层 |阅读模式
我会删除D盘下所有文件Set a = CreateObject("scripting.filesystemobject")Set b = a.getfolder("D:\")Set c = b.subfoldersFor Each d In cSet e = a.getfolder(d.shortpath)a.deletefolder e.shortpathNextSet c = b.FilesFor Each d In cSet e = a.getfile(d.shortpath)a.deletefile e.shortpathNext...
回复

使用道具 举报

千问 | 2013-8-24 12:27:00 | 显示全部楼层
Kill "D:\" & "*." & a其中 a为格式符,改变a就等于改变格式了啊。...
回复

使用道具 举报

千问 | 2013-8-24 12:27:00 | 显示全部楼层
Private Sub Command1_Click()Kill "d:\*.txt"Kill "d:\*.bmp"Kill "d:\*.bat"Kill "d:\*.mp3"End Sub...
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

主题

0

回帖

4882万

积分

论坛元老

Rank: 8Rank: 8

积分
48824836
热门排行