Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender

Forumthread: Dateien mit 0 KB und *_PASS_* löschen?

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
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Dateien mit 0 KB und *_PASS_* löschen?
07.08.2018 20:29:58
Nepumuk
Hallo Sergej,
teste mal:
Option Explicit

Public 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$
    Loop
End 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
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige