使用vbs腳本定時刪除N天前的文件

2019-10-26 18:07:08

字體：大中小

來源：轉載

供稿：網友

腳本放在定時任務里代替服務定時執行一些操作比較方便，下面是實現刪除文件夾下N天前創建的文件的vbs腳本，在配置文件 DelFolderList.txt 中配置要刪除的文件路徑，ONLY-DEL-FILES 下的路徑是只刪除其下的文件，不刪除其內的子目錄的文件。DEL-FOLDER-FILES下的路徑是刪除其內文件及其子目錄內的文件，子目錄為空時刪除目錄，刪除的文件list 放在log文件夾內。例配置文件DelFolder.txt 內容如下：

ONLY-DEL-FILES
E:/Code/test
DEL-FOLDER-FILES
E:/Code/subfolder

腳本內容：

復制代碼代碼如下:

Option Explicit
dim mFSO '定義文件系統對象
dim wFSO '定義文件系統對象
DIM filecount '文件計數
dim foldercount '文件夾計數

dim fstream '定義讀文件流對象
dim wstream '定義寫文件流對象

dim folder    '文件夾對象
dim rootfolder    '文件夾對象
dim file    '文件對象
dim Subdirs     '文件夾集合對象
dim subdir        '文件夾對象
dim LoopFolder    '文件夾對象
dim dopath    '路徑字符串

Dim delFlag
delFlag =0 ' 0: 不刪除子目錄，1：刪除子目錄

DIM WSH
SET WSH=WSCRIPT.CreateObject("WSCRIPT.SHELL")'擊活WScript.Shell對象
main()

sub main()
dim filename
filecount = 0
foldercount = 0
Set mFSO = CreateObject("Scripting.FileSystemObject")
Set wFSO = CreateObject("Scripting.FileSystemObject")
Set fstream = mFSO.OpenTextFile("DelFolderList.txt", 1)
filename=Cstr(Date)
filename=filename + "_" + Replace(Cstr(Time),":","_")
Set wstream = wFSO.CreateTextFile("log/" & filename & ".log", TRUE)
'循環讀取一行filelist.txt中的內容
Do While True <> fstream.AtEndOfStream
   dopath = fstream.ReadLine
   If dopath = "ONLY-DEL-FILES" Then
      delFlag =0
   If True <> fstream.AtEndOfStream Then
   dopath = fstream.ReadLine
   End If
   End If

   If dopath = "DEL-FOLDER-FILES" Then
      delFlag =1
   If True <> fstream.AtEndOfStream Then
        dopath = fstream.ReadLine
   End if
   End If

   if mFSO.FolderExists(dopath) Then
       If 1 = delFlag Then ' 刪除子目錄

       set rootfolder=mFSO.GetFolder(dopath)
       wstream.WriteLine(rootfolder.path & " 下刪除了以下文件：")
       del_file_subFolder rootfolder
       wstream.WriteLine(rootfolder.path & " 下刪除了以下文件夾：")
       del_folderFunc rootfolder
    'del_folderFunc rootfolder
        wstream.WriteBlankLines(1)
   Else '只刪除文件
     set rootfolder=mFSO.GetFolder(dopath)
        wstream.WriteLine(rootfolder.path & " 下刪除了以下文件：")
        del_file rootfolder
        wstream.WriteBlankLines(1)
   End If
   else
        WSH.POPUP("文件夾“" & dopath &"”不存在或路徑錯誤")
        wstream.WriteLine("文件夾“" & dopath &"”不存在或路徑錯誤")
    end if
Loop
fstream.Close