Re: Delete files older than X days old.

From: Dave Patrick (mail_at_NoSpam.DSPatrick.com)
Date: 08/31/04 

Date: Tue, 31 Aug 2004 07:50:39 -0600

http://groups.google.com/groups?hl=en&lr=&ie=UTF-8&selm=ux%24%23SGHSCHA.4396%40tkmsftngp09&rnum=3 

-- 
Regards,
Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect
"Kenneth Keeley" wrote:
| Hi,
|   I am looking for a script that could delete all files out of a tree that
| are older than X number of days.  I would then like it to delete any
| subfolders that contain no files after the old files are deleted. So far I
| have found a script that will delete the files but I am don't how to 
delete
| the folders.
|
| Thanks for any help.
|   Kenneth
|
|
| This is the code for deleting the Files.
|
|  ' Delete files older than # days...
|  KillDate = Date() - NoOfDays
|
|  ' Prepare List of Files to Kill.
|  KillList = Array()
|
|  SelectFiles "D:\FolderToCheck", KillDate, KillList, true
|
|  for FileCount = 0 to ubound(KillList)
|
|    on error resume next 'in case of 'in use' files...
|    KillList(FileCount).Delete true
|  next
|
| Sub SelectFiles(sPath,vKillDate,arFilesToKill,bIncludeSubFolders)
|
|  ' Get Filesystem Handle.
|  set Filesystem = createobject("scripting.filesystemobject")
|
|  'select files to delete and add to array...
|  set folder = Filesystem.getfolder(sPath)
|  set files = folder.files
|
|  for each file in files
|    ' uses error trapping around access to the
|    ' Date property just to be safe
|    '
|    dtcreated = null
|    on error resume Next
|    dtcreated = file.datecreated
|    on error goto 0
|    if not isnull(dtcreated) Then
|      if dtcreated < vKillDate then
|        count = ubound(arFilesToKill) + 1
|        redim preserve arFilesToKill(count)
|        set arFilesToKill(count) = file
|      end if
|    end if
|  next
|
|  if bIncludeSubFolders then
|    for each fldr in folder.subfolders
|      SelectFiles fldr.path,vKillDate,arFilesToKill,true
|    next
|  end if
| end sub
|
|

Relevant Pages

  • Delete files older than X days old.
    ... have found a script that will delete the files but I am don't how to delete ... Sub SelectFiles ... set Filesystem = createobject ... 'select files to delete and add to array... ...
    (microsoft.public.win2000.file_system)
  • Re: Detecting is hyperthreading is enabled with WMI?
    ... It is too bad that WMI does not give this info. ... have to be done to the script. ... Public Sub DisplayProcessorInfo ... dim ProcessorSet, Processor ...
    (microsoft.public.windowsxp.wmi)
  • Cant make this page work
    ... I can't make this script work properly. ... The script at the bottom of the html page ... Does someone have a perl ... sub output_trace_headers { ...
    (comp.lang.javascript)
  • Re: Maybe I should try a different approach
    ... entire time my script is running, then have it close when my script is done and maybe have some dots keep adding to the text message until the script is fully completed? ... ' The "Three Ugly Hack" Script, ... Sub oATO_vbTimerEvent' timer event handler... ... Public Property Let Left ...
    (microsoft.public.scripting.vbscript)
  • Re: Win32_Product doesnt list all installed Applications
    ... 'Must have ADSI and WMI installed on PC running script. ... CONST ForReading = 1 ... Sub Connect ... strHTML = "Smoke'm if you Got'em" ...
    (microsoft.public.windows.server.scripting)