Live-Forum - Die aktuellen Beiträge
Anzeige
Archiv - Navigation
1812to1816
Aktuelles Verzeichnis
Verzeichnis Index
Übersicht Verzeichnisse
Vorheriger Thread
Rückwärts Blättern
Nächster Thread
Vorwärts blättern
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Inhaltsverzeichnis

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

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
.

299 Forumthreads zu ähnlichen Themen

Anzeige
Anzeige
Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige