Supportnet / Forum / Anwendungen(Java,C++...)
Wie kann ich per VBA, mehrere Ordner auf einmal löschen?
Frage
Wie kann ich per VBA, mehrere Ordner auf einmal löschen?
So ähnlich: rd A.* {Alle Ordner die mit A beginnen entfernen}
Aber in VBA! //----wobei dieser Befehl nicht richtig ist-----
schreibt bitte eine Antwort!
H.Hennes
Antwort 1 von W.Bernd
Hi Henne
Versuchs doch mal hiermit:
dim i as integer
x = Text1.text
for i = 1 to x do
rmdir (Text1.text) & i
Wenns nicht funzt, dann frag nochmal!
Chiao .. der Bernd
Versuchs doch mal hiermit:
dim i as integer
x = Text1.text
for i = 1 to x do
rmdir (Text1.text) & i
Wenns nicht funzt, dann frag nochmal!
Chiao .. der Bernd
Antwort 2 von Hennes
Hallo Bernd
Das was du vorgeschlagen hast, funktioniert leider nicht richtig!
Ich kann damit zwar mehrere Ordner löschen, aber sobald ich ein von den durch eine "Schleife" erstellte Ordner lösche, wird eine Fehlermeldung angezeigt, dass die Datei nicht existiert, obwohl ich nur ein Ordner gelöscht habe!
z.B. habe ich mit ne Schleife 10 Ordner erstellt,wenn ich die 10 wieder löschen will, brauche ich nur dein Tip anzuwenden, aber sobald ich z.B den 2.Ordner lösche, bekomme ich die folgene Fehlermeldung : "Pfad nicht gefunden!"
Danke trotzdem
Gruß Hennes
Das was du vorgeschlagen hast, funktioniert leider nicht richtig!
Ich kann damit zwar mehrere Ordner löschen, aber sobald ich ein von den durch eine "Schleife" erstellte Ordner lösche, wird eine Fehlermeldung angezeigt, dass die Datei nicht existiert, obwohl ich nur ein Ordner gelöscht habe!
z.B. habe ich mit ne Schleife 10 Ordner erstellt,wenn ich die 10 wieder löschen will, brauche ich nur dein Tip anzuwenden, aber sobald ich z.B den 2.Ordner lösche, bekomme ich die folgene Fehlermeldung : "Pfad nicht gefunden!"
Danke trotzdem
Gruß Hennes
Antwort 3 von W.Bernd
Hi Henne
In VBA gibts den befehl mit *.* oder ähnliches nicht , ich kann dir daher leider auch nicht weiter helfen !
der Bernd
In VBA gibts den befehl mit *.* oder ähnliches nicht , ich kann dir daher leider auch nicht weiter helfen !
der Bernd
Antwort 4 von Hennes
kann mir keiner mehr weiter helfen?
Ich bitte euch um alle Seelen, helft mir!
Weil ich kanns nicht haben wenn ich meine Probleme nicht gelöst bekomme!
Gruß der arme Hennchen
Ich bitte euch um alle Seelen, helft mir!
Weil ich kanns nicht haben wenn ich meine Probleme nicht gelöst bekomme!
Gruß der arme Hennchen
Antwort 5 von Viagra
Hallo, Henne.
Mir ist nur eine Lösung eingefallen, die ist aber waaaaaaahnsinnig umständlich. Du könntest über den WSH und DOS eine Textdatei erstellen, in der alle zu löschenden Verzeichnisse stehen. Z. B. so:
REM kleines Beispiel für WSH:
deinebedingung = "W?N*"
set wsh = CreateObject("WScript.Shell"
wsh.run "dir /AD /W " & deinebedingung & " > C:\temp.txt"
In der Datei temp.txt hast du nun alle betroffenen Dateien stehen.
Nun kannst du diese mit dem FSO auslesen:
set fso = CreateObject("Scripting.FileSystemObject")
set temptxt = fso.OpenTextfile("C:\temp.txt")
... Datei Zeile für Zeile auslesen
... Pfadnamen erkennen
... Pfad löschen
Ist aber wahnsinnig kompliziert und auch nur zu empfehlen, wenn du es wirklich dringend brauchst.
Mehr fällt mir dazu auch nicht ein.
Bis denn dann
Der ich
Mir ist nur eine Lösung eingefallen, die ist aber waaaaaaahnsinnig umständlich. Du könntest über den WSH und DOS eine Textdatei erstellen, in der alle zu löschenden Verzeichnisse stehen. Z. B. so:
REM kleines Beispiel für WSH:
deinebedingung = "W?N*"
set wsh = CreateObject("WScript.Shell"
wsh.run "dir /AD /W " & deinebedingung & " > C:\temp.txt"
In der Datei temp.txt hast du nun alle betroffenen Dateien stehen.
Nun kannst du diese mit dem FSO auslesen:
set fso = CreateObject("Scripting.FileSystemObject")
set temptxt = fso.OpenTextfile("C:\temp.txt")
... Datei Zeile für Zeile auslesen
... Pfadnamen erkennen
... Pfad löschen
Ist aber wahnsinnig kompliziert und auch nur zu empfehlen, wenn du es wirklich dringend brauchst.
Mehr fällt mir dazu auch nicht ein.
Bis denn dann
Der ich