Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: PDF Dateien aus Ordner löschen
Autor: Fabian Stern
Datum: 15.11.05 14:04
Hey, benutz das hier: Sub DeletePDF(myOrdner as String) Dim myDir as String myDir = Dir(myOrdner) if myDir = "" then Exit Sub If Lcase(Right(myDir,4)) = ".pdf" Then Kill myDir Do Until myDir = "" myDir = Dir(myOrdner) If Lcase(Right(myDir,4)) = ".pdf" Then Kill myDir Loop End Sub Hab es nicht getestet, aber so sollte es gehen. Wenn du nun auch noch die Unterverzeichnisse durchsuchen willst, dann nimm den Tipp von www.activevb.de unter Tipps -> Dateien und Laufwerke -> Order Rekursiv Durchsuchen Der ist brauchbar MfG. Fabian Stern - info@smart-coding.com http://www.smart-coding.com

PDF Dateien aus Ordner löschen	1.530	Katzenkind	15.11.05 10:35
Re: PDF Dateien aus Ordner löschen	634	vbtricks	15.11.05 12:09
Re: PDF Dateien aus Ordner löschen	558	Fabian Stern	15.11.05 14:04
Re: PDF Dateien aus Ordner löschen	589	vbtricks	15.11.05 14:17
Re: PDF Dateien aus Ordner löschen	509	Fabian Stern	15.11.05 14:56
Dankeschön ihr zwei ^^ Es funktioniert jetzt prima!! (ot)	423	Katzenkind	16.11.05 09:56

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen