Dateien mit 0 KB und *_PASS_* löschen? 07.08.2018 19:57:19 Sergej Hallo Leute, wie kann ich bitte per VBA im Verzeichnis T:\Daten\2018\Auswertungen\ alle Dateien löschen, die 0 KB gross sind und genauso alle Dateien bei den in den Dateiname _PASS_ vorkommt? Besten Dank im Voraus! Schönen Gruß, Sergej
AW: Dateien mit 0 KB und *_PASS_* löschen? 07.08.2018 20:29:58 Nepumuk Hallo Sergej, teste mal: Option ExplicitPublic Sub DeleteFiles() Const FOLDER_PATH As String = "T:\Daten\2018\Auswertungen\" Dim strFilename As String strFilename = Dir$(FOLDER_PATH & "*.*") Do Until strFilename = vbNullString If FileLen(PathName:=FOLDER_PATH & strFilename) = 0 Then _ Call Kill(PathName:=FOLDER_PATH & strFilename) strFilename = Dir$ Loop strFilename = Dir$(FOLDER_PATH & "*_PASS_*.*") Do Until strFilename = vbNullString Call Kill(PathName:=FOLDER_PATH & strFilename) strFilename = Dir$ LoopEnd Sub Gruß Nepumuk Anzeige
AW: Dateien mit 0 KB und *_PASS_* löschen? 07.08.2018 22:21:13 Sergej Hallo Nepumuk, vielen Dank! Es funktioniert prima. Beste Grüße, Sergej