昨日，我的一個(gè)分區(qū)報(bào)告磁盤(pán)容量低。這個(gè)分區(qū)我是專門(mén)用來(lái)存儲(chǔ)例子及項(xiàng)目，經(jīng)過(guò)分析發(fā)現(xiàn)是因?yàn)樘嗟睦映绦蚓幾g后產(chǎn)生的dll, exe, ncb文件占據(jù)了大量的空間，而代碼文件占用的空間并不是很多。只有去刪除這些生成的文件了。但經(jīng)過(guò)長(zhǎng)久的使用，積累了大大小小有數(shù)百個(gè)小例子，要?jiǎng)h除每個(gè)例子的這些文件是一件很枯燥繁重的重復(fù)工作。刪了5個(gè)搞得人都有些暈了。后來(lái)想想為什么不用程序來(lái)做這件事了。于是我就寫(xiě)了段腳本來(lái)處理這項(xiàng)工作了。效果還不錯(cuò)。

mydir = "E:\klfd"  ' 指定要?jiǎng)h除哪個(gè)目錄下的文件
specifyExt = "exe,dll,ilk,pdb,obj,exp,lib,pch,res,dep,idb,manifest"  '指定要?jiǎng)h除的文件類型，可千萬(wàn)不要用* 哦
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