本篇內容介紹了“可以刪除指定天數文件的vbs腳本”的有關知識,在實際案例的操作過程中,不少人都會遇到這樣的困境,接下來就讓小編帶領大家學習一下如何處理這些情況吧!希望大家仔細閱讀,能夠學有所成!
成都創新互聯公司專注于網站建設|成都網站維護|優化|托管以及網絡推廣,積累了大量的網站設計與制作經驗,為許多企業提供了網站定制設計服務,案例作品覆蓋邊坡防護網等行業。能根據企業所處的行業與銷售的產品,結合品牌形象的塑造,量身制作品質網站。復制代碼 代碼如下:
Const FilePath = "E:\log" '定義目錄
Set FSO = CreateObject("Scripting.FileSystemObject")
ShowSubfolders FSO.GetFolder(filepath)
Sub ShowSubFolders(Folder)
For Each Subfolder in Folder.SubFolders
Set Files = subfolder.Files
If Files.Count <> 0 Then
For Each File In Files
If File.DateLastModified < Now - 30 Then '判斷是否超過30天
FSO.DeleteFile(Subfolder.Path & "\" & File.Name) '刪除
'Wscript.Echo Subfolder.Path & "\" & File.Name '顯示
End If
Next
End If
ShowSubFolders Subfolder
Next
End Sub
“可以刪除指定天數文件的vbs腳本”的內容就介紹到這里了,感謝大家的閱讀。如果想了解更多行業相關的知識可以關注創新互聯網站,小編將為大家輸出更多高質量的實用文章!
名稱欄目:可以刪除指定天數文件的vbs腳本-創新互聯
網頁地址:http://vcdvsql.cn/article36/ejosg.html
成都網站建設公司_創新互聯,為您提供品牌網站建設、網站制作、品牌網站制作、移動網站建設、微信小程序、軟件開發
聲明:本網站發布的內容(圖片、視頻和文字)以用戶投稿、用戶轉載內容為主,如果涉及侵權請盡快告知,我們將會在第一時間刪除。文章觀點不代表本網站立場,如需處理請聯系客服。電話:028-86922220;郵箱:631063699@qq.com。內容未經允許不得轉載,或轉載時需注明來源: 創新互聯