Smazßnφ soubor∙ urΦitΘho stß°φ

Funkce:
Public Function DeleteOldFiles(DaysOld As Long, FileSpec As _
   String,Optional ComparisonDate As Variant) As Boolean

   'Sma₧e vÜechny soubory, kterΘ jsou o DaysOld starÜφ ne₧
   'ComparisonDate, kterΘ je defaultn∞ nastaveno na Now
   'N┴VRATOV╔ HODNOTY: True, pokud je funkce ·sp∞Ünß, jinak False 
   'Nesma₧e soubory ReadOnly, Hidden nebo System

   Dim sFileSpec As String
   Dim dCompDate As Date
   Dim sFileName As String
   Dim sFileSplit() As String
   Dim iCtr As Integer, iCount As Integer
   Dim sDir As String

   sFileSpec = FileSpec

   If IsMissing(ComparisonDate) Then
      dCompDate = Now
   ElseIf Not IsDate(ComparisonDate) Then
         DeleteOldFiles = False
         Exit Function
      Else
         dCompDate = CDate(Format(ComparisonDate, "mm/dd/yyyy"))
   End If

   sFileName = Dir(sFileSpec)

   If sFileName = "" Then
      DeleteOldFiles = False
      Exit Function
   End If

   Do
      If sFileName = "" Then Exit Do
      If InStr(sFileSpec, "\") > 0 Then
         sFileSplit = Split(sFileSpec, "\")
         iCount = UBound(sFileSplit) - 1
         For iCtr = 0 To iCount
            sDir = sDir & sFileSplit(iCtr) & "\"
         Next
         sFileName = sDir & sFileName
      End If
      On Error GoTo errhandler:
      If DateDiff("d", FileDateTime(sFileName), dCompDate) >= DaysOld Then
         Kill sFileName
      End If
      sFileName = Dir
      sDir = ""
   Loop

   DeleteOldFiles = True

   Exit Function

errhandler:
   DeleteOldFiles = False
   Exit Function

End Function

Zp∞t