Dateien

03/02/2008 - 16:49 von Andreas | Report spam
Hallo Zusammen,
wie muss ich vorgehen um mehreren Dateien zu löschen. Bekannt ist der
Dateiname aber nicht die Dateinummer.
Die Datei heisst immer logdatei_1.txt oder logdatei_2.txt oder
logdatei_3.txt usw.. Wenn jetzt alle Logdateien in Reihenfolge vorhanden
sind kann ich den Code unten anwenden. Wenn jetzt aber Dateien fehlen und
die Reihenfolge nicht mehr vorhanden ist z.B so: logdatei_1.txt und
logdatei_2.txt und logdatei_4.txt vorhanden aber logdatei_3.txt fehlt, dann
funktioniert dieser Code nicht mehr Weill die Schleife bei der
logdatei_2.txt beendet wird. Weil die logdatei_3.txt nicht vorhanden ist.

Gruss
Andreas


'logdatei = logdatei_1.txt oder logdatei_2.txt usw...
Dim Auftragsnummer As Integer
Do
Auftragsnummer = Auftragsnummer + 1




If IsFilePath(App.Path & "\log\" & "logdatei_" & Auftragsnummer &
".txt") = True Then

Kill App.Path & "\log\" & "logdatei_" & Auftragsnummer & ".txt"


Else

Exit Do

End If


Loop
 

Lesen sie die antworten

#1 Herfried K. Wagner [MVP]
03/02/2008 - 16:56 | Warnen spam
"Andreas" schrieb:
wie muss ich vorgehen um mehreren Dateien zu löschen. Bekannt ist der
Dateiname aber nicht die Dateinummer.
Die Datei heisst immer logdatei_1.txt oder logdatei_2.txt oder
logdatei_3.txt usw.. Wenn jetzt alle Logdateien in Reihenfolge vorhanden
sind kann ich den Code unten anwenden. Wenn jetzt aber Dateien fehlen und
die Reihenfolge nicht mehr vorhanden ist z.B so: logdatei_1.txt und
logdatei_2.txt und logdatei_4.txt vorhanden aber logdatei_3.txt fehlt,
dann funktioniert dieser Code nicht mehr Weill die Schleife bei der
logdatei_2.txt beendet wird. Weil die logdatei_3.txt nicht vorhanden ist.



Entferne einfach das 'Exit Do'.

M S Herfried K. Wagner
M V P <URL:http://dotnet.mvps.org/>
V B <URL:http://dotnet.mvps.org/dotnet/faqs/>

Ähnliche fragen