Mappen Löschen aber nur bestimmte

Forumthread: Mappen Löschen aber nur bestimmte

31.01.2007 10:43:01

Walter

Hallo Zusammen,
hatte gestern soweit vonThorsten (Oberschlumpf) eine Info erhalten :
Kill "C:\Documents and Settings\" & nam & "\Local Settings\" _
& "Temp\notes9D76E5\*.xls"
funktioniert einwandfrei !
Wenn ich ALLE Dateien löschen möchte auße: die mit der Endung: "ncf"
Geht das, Wie ?
Gruß Walter

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread

Betreff

Datum

Anwender

AW: Mappen Löschen aber nur bestimmte

01.02.2007 00:07:42

fcs
Funktioniert Super bitte Erkl...

01.02.2007 11:46:51

Walter
AW: Funktioniert Super bitte Erkl...

01.02.2007 16:31:27

fcs
Danke -)

01.02.2007 17:40:18

Walter

AW: Mappen Löschen aber nur bestimmte

01.02.2007 00:07:42

fcs

Hallo walter,


Datei = Dir("C:\Documents and Settings\" & nam & "\Local Settings\" _
& "Temp\notes9D76E5\*.*")
Do Until Datei = ""
If UCase(Right(Datei, 3)) <> UCase("ncf") Then Kill Datei
Datei = Dir
Loop

Gruß
Franz
Gruss
Franz

Funktioniert Super bitte Erkl...

01.02.2007 11:46:51

Walter

Hallo Franz,
das klappt ja Prima, kannst Du mir mal dahinter beschreiben was gemeint/passiert ist.
Bitte möchte das irgendwie verstehen,
Danke im voraus
mfg Walter

AW: Funktioniert Super bitte Erkl...

01.02.2007 16:31:27

fcs

Hallo Walter,
hier mit Erläuterungen:


' Mit Befehl Dir im Verzeichnis Dateien suchen: *.* sucht alle Dateien im Verzeichnis
'Der Name inkl. Verzeichnis der 1. gefundenen Datei wird in der Variablen Datei gespeichert.
Datei = Dir("C:\Documents and Settings\" & nam & "\Local Settings\" _
& "Temp\notes9D76E5\*.*")
'In einer Do...Loop-Schleife alle Dateien, die Dir gefunden hat abarbeiten
'Wenn Dir keine Datei findet bzw. nach der letzten gefunden Datei gibt Dir einen Leerstring zurück _
und die Do-Schleife wird beendet.
Do Until Datei = ""
'wenn die letzten 3 Zeichen (also die Dateierweiterung nach dem Punkt) verschieden von _
"ncf" sind dann Datei löschen. Um ggf. Groß-/Kleinschreibung zu erschlagen werden mit _
UCase die zu vergleichenden Texte in Großbuchstaben umgewandelt.
If UCase(Right(Datei, 3)) <> UCase("ncf") Then Kill Datei
'Den Namen der nächsten Datei gemäß Suchkriterien in die Variable Datei schreiben
Datei = Dir
Loop

Gruß
Franz

Danke -)

01.02.2007 17:40:18

Walter

Hallo Franz,
herzlichen Dank für die zusätzliche Information.
mfg Walter

Beliebteste Forumthreads (12 Monate)

Mappen Löschen aber nur bestimmte

Forumthread: Mappen Löschen aber nur bestimmte

4 Beiträge zum Forumthread Beiträge zu diesem Forumthread

VBA Beispiele zu diesem und ähnlichen Themen

Beliebteste Forumthreads (12 Monate)

4
Beiträge zum Forumthread

Beiträge zu diesem Forumthread