Live-Forum - Die aktuellen Beiträge
Datum
Titel
26.04.2024 21:51:33
Idee für Grafik
26.04.2024 21:29:07
PQ zufällige Reihenfolge
26.04.2024 17:18:47
Große Datenmenge in komplexes Diagramm verpacken
26.04.2024 16:22:47
Aktualisierung Verknüpfung bei geschlossener Quelldatei
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
840to844
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
840to844
840to844
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Mappen Löschen aber nur bestimmte

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
Anzeige
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
Anzeige
Danke -)
01.02.2007 17:40:18
Walter
Hallo Franz,
herzlichen Dank für die zusätzliche Information.
mfg Walter

Beliebteste Forumthreads (12 Monate)

Anzeige
Jetzt das Excel-Portal bewerten: Deine Stimme zählt!

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige