Löschen von allen Dateien, aber mit Ausnahmen?
19.05.2006 12:48:58
allen
Ich möchte in meinem TEMP-Ordner sämtliche Temp-Dateien löschen, die älter als 3 Tage sind, allerdings soll es einige wenige Ausnahmen geben. Diese haben immer in der Namensbezeichnung ein "office" stehen, also zB "nmkoffice1.tmp" oder "jhuoffice98.tmp". Diese Dateien sollen nicht gelöscht werden (geht auch nicht, da sie aktuell verwendet werden).
Ich habe bisher mir folgende Lösung (als Modul) erarbeitet:
Sub FileDelete()
Dim FS As Object, strOrdner As String
Dim I, iCount, iCounter As Integer
strName = Environ("UserName")
strOrdner = "C:\Dokumente und Einstellungen\" & strName & "\Lokale Einstellungen\Temp"
iCount = 3
With FS
.LookIn = strOrdner
.Filename = "*.tmp"
.Execute
For iCounter = 1 To .FoundFiles.Count
If FileDateTime(.FoundFiles(iCounter)) + 3 < Date Then
Kill .FoundFiles(iCounter)
End If
Next iCounter
End With
End Sub
Problem ist hier natürlich, das hier auch theoretisch diese "office"-Dateien gelöscht werden! Wie könnte ich das umgehen,bzw. könnte ich für diese Dateien eine Ausnahme einbauen?
Wäre für Hilfe sehr dankbar.
Mfg,
Klaus