昨日，我的一個分區報告磁盤容量低。這個分區我是專門用來存儲例子及項目，經過分析發現是因為太多的例子程序編譯后產生的dll, exe, ncb文件占據了大量的空間，而代碼文件占用的空間并不是很多。只有去刪除這些生成的文件了。但經過長久的使用，積累了大大小小有數百個小例子，要刪除每個例子的這些文件是一件很枯燥繁重的重復工作。刪了5個搞得人都有些暈了。后來想想為什么不用程序來做這件事了。于是我就寫了段腳本來處理這項工作了。效果還不錯。

mydir = "E:\klfd"  ' 指定要刪除哪個目錄下的文件
specifyExt = "exe,dll,ilk,pdb,obj,exp,lib,pch,res,dep,idb,manifest"  '指定要刪除的文件類型，可千萬不要用* 哦
extArr = split(specifyExt, ",")
Set fs = CreateObject("scripting.filesystemobject")
Set rootFolder = fs.getfolder(mydir)
DeleteFile rootFolder
MsgBox "Delete complete"

Sub DeleteFile(myfolder)
On Error Resume Next
 Set subfolders = myfolder.Subfolders
 For Each Subfolder in subfolders
  DeleteFile subfolder
 Next

 For Each strExt in extArr
  strTemp = myfolder.path & "\*." & strExt
  fs.deletefile strTemp, True
 Next
 'For each myfile in myfolder.files 
 ' strFileExt = LCase(fs.getextensionname(myfile.name))
 ' For each strExt in extArr
 ' If strExt = strFileExt Then
 '   fs.deletefile myfile.path, True
 '  End If
 ' Next  
 'Next
End Sub