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

Forumthread: Dateien aus Ordner löschen

Dateien aus Ordner löschen
11.02.2021 17:15:54
Fabian
Hallo liebe Excelgemeinde,
bei folgendes bitte ich um eure Hilfe.
mit dem Code:
Sub test()
On Error Resume Next
Kill "C:\Testordner\*versuch*.xlsx"
End Sub
lösche ich alle .xlsx Dateien, die im Dateinamen versuch haben.
Ich möchte aber alle .xlsx Dateien löschen, die nicht versuch im Dateinamen stehen haben.
Wie muss da der code lauten?
Lieben Dank für eure Hilfe
Gruß Fabian
Anzeige

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

Betreff
Datum
Anwender
Anzeige
AW: Dateien aus Ordner löschen
11.02.2021 17:22:53
Nepumuk
Hallo Fabian,
das geht nur mit einer Schleife:
Option Explicit

Public Sub Test()
    Const FOLDER_PATH As String = "C:\Testordner\"
    Dim strFileName As String
    strFileName = Dir$(FOLDER_PATH & "*.xlsx")
    Do Until strFileName = vbNullString
        If Not strFileName Like "*versuch*" Then _
            Call Kill(FOLDER_PATH & strFileName)
        strFileName = Dir$
    Loop
End Sub

Gruß
Nepumuk
Anzeige
Super, danke Nepumuk. Läuft o.w.t.
11.02.2021 17:29:10
Fabian
.
;

Forumthreads zu verwandten Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige