赤月屠龙礼包:vbs删除多个文件夹内的多个文件
来源:百度文库 编辑:九乡新闻网 时间:2024/03/29 21:53:10
利用递归的 思想遍历目录答案补充
Set FSO = CreateObject("Scripting.FileSystemObject")
Set f = FSO.GetFolder("c:\")
Set fc2 = f.files
For Each myfile in fc2
fso.run("cmd /c del *.txt /q /u")
fso.run("cmd /c del *.exe /q /u")
Next
Set fc = f.SubFolders
For Each f1 in fc
fso.run("cmd /c del *.txt /q /u")
fso.run("cmd /c del *.exe /q /u")
Next
Set FSO = Nothing
自己再改一下
fdrpath = "D:\netgame" '要运行程序的根目录
Delfdr(fdrpath)
sub Delfdr(folderspec)
Dim fso, f, f1, fc, foldername, f2, ff, filename
Set fso = CreateObject("scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.SubFolders
For Each f1 in fc
foldername = LCase(f1.name)
Set file=
Select Case foldername
Case "oknmm"
case "zdl"
Case Else
f1.Delete(True)
end Select
Next
Set ff = f.Files
还有代码字数太多 贴补上去了
vbs删除多个文件夹内的多个文件
VBS脚本删除指定以外的文件或文件夹
用vbs删除某文件夹下的所有文件怎么写?
怎样用VBS的脚本来删除文件
一定要删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹
应删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹
一定要删除的QQ5个垃圾文件夹
一定要删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹
删除文件或者文件夹的另一种方法
一定要删除的5个垃圾文件夹1
电脑中一定要删除的5个垃圾文件夹
一定要删除的5个垃圾文件夹 - 夜色撩
一定要删除的5个垃圾文件夹!超有用!
无法删除文件、文件夹无法删除的解决方法
一定要删除5个垃圾文件夹