city_85

还是不行哦.大哥.假如我这个脚本在D:\batdir这个目录下叫做1.bat,怎么去修改代码啊,删除D:\web\online下面的所有东西除了几个保留的外,刚才我去用1.bat "目标文件夹路径"不行哦.再次谢谢大哥啊

city_85

还是不行啊.大哥.你就直接帮我修改成D:\batdir\1.bat这个脚本,只要我双击它,就可以删除D:\web\online目录下的所有东西除了保留的哪些文件.再次谢谢大哥啊.

CrLf

先前贴错代码，把旧的贴了上去...代码已更新。如果要用绝对路径，把"%1"换成"D:\web\online"就行了

city_85

哇.太酷了.功能实现了.非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常非常感谢zm900612 大哥这位大牛人和热心人,向你致敬!!!!!!!!!!!!!!!!

lxzzr

传个VBS的：

Delfdr "D:\"    '你要处理的路径
sub Delfdr(folderspec)
   Dim fso, f, f1, fc, foldername, f2, ff, filename
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(folderspec)
   Set ff = f.Files      
   For Each f2 in ff
       Select Case f2.name
          Case "pagefile.sys"   '你想保留的文件
          Case Else
             f2.Delete(True)
        End Select
   Next
   Set fc = f.SubFolders   
   For Each f1 in fc
       foldername = f1.name
       Select Case foldername
       Case "网络游戏"  '你想保留的文件
       Case Else
           f1.Delete(True)
       end Select
   next
Set FSO=NoThing
End sub
复制代码