Dateien einlesen + Schleifenproblem
31.07.2006 19:29:26
SteffenS
ich habe ein Problem bei dem ich bitte Eure Hilfe brauche.
Ich möchte per Schleife gern Dateien eines Verzeichnisses löschen.
Eigenrlich möchte ich alle Dateien eines Verzeichnisses bis auf die angebenen löschen.
Mein Versuch:
Dim Dateien As String
Dateien = Dir(ThisWorkbook.Path & "\system\*.*")
Do While Dateien ""
If Dateien "XY1_leer.xls" And Dateien "KER07-Anzeigen.xls" And Dateien "MSCAL.OCX" And Dateien "ZZ.xls" And Dateien "zipfldr.dll" Then
Kill ThisWorkbook.Path & "\system\" & Dateien
End If
Loop
Leider läuft die Schleife ewig.
Was muss ich tun damit alle Dateien eines Verzeichnisses bis auf die ausgeschlossenen gelöscht werden?
Danke für Eure Hilfe.
MFG
Steffen