亚洲av成人无遮挡网站在线观看,少妇性bbb搡bbb爽爽爽,亚洲av日韩精品久久久久久,兔费看少妇性l交大片免费,无码少妇一区二区三区

Chinaunix

標題: VB菜鳥求助，急�。。� [打印本頁]

作者: fishyucat 時間: 2011-05-04 16:31
標題: VB菜鳥求助，急�。�！
各位大大，菜鳥求助，為了刪除一個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

歡迎光臨 Chinaunix (http://www.72891.cn/)