VB菜鳥求助，急�。�！

fishyucat

各位大大，菜鳥求助，為了刪除一個(gè)NAS路徑上的舊log（舊于30天）, 我找到了以下的 VB腳本，用VB的原因是我們的batch平臺(tái)對(duì) VB兼容比較好
用下面的腳本，我能刪除Logfiles以及它的子目錄下的所有文件，但是這些子目錄卻不能刪除，想請(qǐng)各位幫我改改腳本，能把Logfiles目錄下的所有文件和子目錄，以及子目錄里的文件，子子目錄等，只要日期過了30天就刪除

還請(qǐng)各位幫忙，小弟多謝了！

-----------------------------------------------------
Dim strStartFolder
Dim iExpiredAge
dim objFSO, objStartFolder

strStartFolder="\\192.168.1.100\aaa\bbb\ccc\Logfiles"
iExpiredAge=30

Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objStartFolder = objFSO.GetFolder(strStartFolder)

call DeleteFolder(objStartFolder,iExpiredAge)

Sub DeleteFolder(objFolder,iAge)

dim colFolders, colFiles
dim objSubFolder, objFile

Set colFolders = objFolder.SubFolders
For Each objSubFolder In colFolders
Call DeleteFolder(objSubFolder,iAge)
Next

Set colFiles = objFolder.Files
For Each objFile In colFiles
If DateDiff("D", objFile.DateLastModified, Now) > iAge Then objFile.Delete
Next

End Sub