使用vbs脚本定时删除N天前的文件

脚本放在定时任务里代替服务定时执行一些操作比较方便，下面是实现删除文件夹下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

脚本内容：

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
    

发表评论 共有条评论 用户名: 密码: 验证码: 匿名发表