Access 2010 - Ersatz für FileSearch

Johannes66

Lt. Junior Grade
Registriert
Nov. 2009
Beiträge
509
Hallo Leute,

Leider geht in Access 2010 die Funktion FileSearch nicht mehr, so jedenfalls habe ich es im Netz gelesen.
Läßt sich der Befehl ev. doch noch mit einer bestimmten Objekt Library (ich hoffe das heißt so) doch noch aktivieren, oder muß ich mich in einen anderen Befehl einlesen?
Wenn ja, welchen am besten?

Der Teil von meinem Code hat so ausgeschaut:
Er hat Files gezählt und je nach Ergebnis gelöscht und gesichert.

With Application.FileSearch
.NewSearch
.LookIn = Forms![Formular Start Auswahl].SicherungPfad
.SearchSubFolders = False 'Testen
.FileName = "Sicherung*"
.MatchTextExactly = True
.FileType = msoFileTypeAllFiles
End With

If Application.FileSearch.Execute() > 0 Then
If Application.FileSearch.FoundFiles.Count > 10 Then
Antwort = MsgBox("Mehr als 10 Sicherungsdateien !" & Chr(10) & Chr(10) & _
"Willst Du diese löschen ? ", vbQuestion + vbYesNo + vbDefaultButton2, "JoGi Meldung")
If Antwort = vbYes Then
Kill Forms![Formular Start Auswahl].SicherungPfad & "\Sicherung*"
MsgBox "Löschen erfolgreich !", vbInformation, "JoGi Meldung"
End If
End If
End If

Danke für Hilfe.
 
Zurück
Oben