Database Search

TechHome

• Alternate Data Stream UDFs
• CD Drive Locker
• Checksum Calculations
• Count Number of Lines in File UDF
• Delete if Older Than
• Delete old TMP files
• Disable Offline Attribute
• Display a Files Property Sheet
• Export to Excel or CSV UDFs
• Extracting last lines of a file UDS
• Fast File Count
• File Read Line
• FileCount UDF
• Find a File
• Find Line Number of Keyword in a Text File
• Get a Signature of a File
• Get Summary File Properties
• Get the Compressed File Size
• Getting True Filenames and Directories UDF
• List all Files Older Than
• Make Available Offline
• PathStripToRoot UDF
• Recursive FileAttrSet
• Recursive List of Files or Directories
• UDF - Find Newest File
• udfArrFileOlderThan
• udfAskDirectory
• udfFileCopyFlat
• XCOPY with some Excludes

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

UDF - Delete old TMP files

Keywords:   UDF - Delete old TMP files

#DefineFunction DeleteoldTMPfiles(startdir,daysold)
    Terminate(DirExist(fromdir)==@false,"Eeep","Startdir directory does not exist")
    ;make sure we have a full path or a UNC
    starttest=strindex(startdir,":",0,@fwdscan) + (strsub(startdir,1,2)=="\\")
    Terminate(starttest==0,"Eeep","Full path must be specified for startDir")
    
    DirChange(startdir)
    ;clean up passed paramters just in case
    if strsub(startdir,strlen(startdir),1) != "\" then startdir=strcat(startdir,"\")
    
    ;check/delete files in this directory
    ;copy files in this directory
      list=FileItemize("*.tmp")
      count=ItemCount(list,@tab)
      now=TimeYmdHms()
      
      for xx=1 to count
          thisfile=ItemExtract(xx,list,@tab)
          thistime=FileTimeGetEx(thisfile,3)
          test=TimeDiffDays(now,thistime)
          if test >= daysold
             ErrorMode(@off)
             FileDelete(thisfile)
             ErrorMode(@cancel)
          endif
      next    
    ;get list of subdirectories
    dirlist=DirItemize("*.*")
    count=ItemCount(dirlist,@tab)
    ;Preocess each subdirectory
    for xx=1 to count
       thisdir=ItemExtract(xx,dirlist,@tab)
       fulldir=strcat(startdir,thisdir,"\")
       DeleteoldTMPfiles(fulldir,daysold)
    next
    return
#EndFunction

 DeleteoldTMPfiles("C:\",14)
 Message("","Done")

Article ID:   W15749

File Created: 2004:10:20:13:09:34

Last Updated: 2004:10:20:13:09:34