VB菜鸟求助，十万火急

fishyucat

各位大大，菜鸟求助，为了删除一个NAS路径上的旧log（旧于30天）, 我找到了以下的 VB脚本，用VB的原因是我们的batch平台对 VB兼容比较好
用下面的脚本，我能删除Logfiles以及它的子目录下的所有文件，但是这些子目录却不能删除，想请各位帮我改改脚本，能把Logfiles目录下的所有文件和子目录，以及子目录里的文件，子子目录等，只要日期过了30天就删除

还请各位帮忙，小弟多谢了！

-----------------------------------------------------
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