昨日，我的一個分區報告磁盤容量低。這個分區我是專門用來存儲例子及項目，經過分析發現是因為太多的例子程序編譯后產生的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