彰化一整天的論壇

 找回密碼
 立即註冊
查看: 1070|回復: 0

如何用vbs定期刪除和搬移特定檔案

[複製鏈接]
發表於 2014-5-12 10:41:22 | 顯示全部樓層 |閱讀模式
  1. ' 指定所有變數必須事先宣告才能使用
  2. Option Explicit

  3. WScript.Echo("作業開始執行:" & Date & " " & Time)

  4. ' 宣告變數
  5. Dim FSO, agoDays, modifiedDate, delFolder

  6. ' 請將下面的變數值換成你要的
  7. ' == 開始 ==
  8. ' 指定 n 天前的檔案,現在是 3 天前
  9. agoDays = 3
  10. ' 欲刪除檔案所在之目錄
  11. delFolder = "D:\Temp"
  12. ' == 結束 ==

  13. ' 建立檔案系統物件(File System Object)
  14. Set FSO = CreateObject("Scripting.FileSystemObject")

  15. ' 取得檔案的修改日期
  16. modifiedDate = DateAdd("d", -agoDays, Date)

  17. ' 呼叫刪除檔案的子程序
  18. DelFilesInFolder FSO.GetFolder(delFolder)

  19. ' 刪除檔案的子程序
  20. Sub DelFilesInFolder(folder)
  21.         ' 宣告變數
  22.         Dim file, subFolder

  23.         ' 找出目前所在目錄內所有的檔案
  24.         For Each file In folder.Files
  25.                 ' 檢查檔案日期是否符合條件,若符合,就刪除
  26.                 If ((file.DateLastModified <= modifiedDate)) Then
  27.                         file.delete
  28.                 End If
  29.         Next

  30.         ' 如果遇到子目錄,也要進去檢查並刪除
  31.         For Each subFolder in folder.SubFolders
  32.                 DelFilesInFolder subFolder
  33.         Next
  34. End Sub

  35. WScript.Echo("作業執行完畢:" & Date & " " & Time)
複製代碼
文章出處:http://ithelp.ithome.com.tw/question/10009001
回復

使用道具 舉報

您需要登錄後才可以回帖 登錄 | 立即註冊

本版積分規則

 ㄚ母滴雞湯
 員林香純滴雞精

Archiver|手機版|小黑屋|彰化一整天的論壇(Excel,Office)  

GMT+8, 2020-2-25 14:29 , Processed in 0.130370 second(s), 18 queries .

Powered by Discuz! X3.2

© 2001-2013 Comsenz Inc.

快速回復 返回頂部 返回列表