'这里是你要删除的路径,路径以“\”结尾
Delfdr("d:\")
sub Delfdr(dPath)
   Dim fso,objShell, f, f1, fc, foldername
   Set objShell = WScript.CreateObject("WScript.Shell")
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set f = fso.GetFolder(dPath)
   Set fc = f.SubFolders
   For Each f1 in fc
       foldername = LCase(f1.name)
       Select Case foldername
       Case "聊天工具","网络游戏","游戏菜单","tb","system volume information","recycler","gamelog","tem","program files","tools"   '你要排除的文件夹
       Case Else
           'objShell.run "cmd /c rd /s/q "&chr(34)&dPath&f1.name &chr(34),0
       end Select
   Next
Set FSO=NoThing
Set objShell =NoThing
End sub