Live-Forum - Die aktuellen Beiträge
Datum
Titel
28.03.2024 21:12:36
28.03.2024 18:31:49
Anzeige
Archiv - Navigation
900to904
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
900to904
900to904
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Inhaltsverzeichnis

Unterornder löschen

Unterornder löschen
25.08.2007 17:03:21
SteffenS
Ich habe folgenden Code:
Set fs = CreateObject("Scripting.FileSystemObject")
If Dir(phqe & "Betriebe", vbDirectory) "" And Dir(phqe & "Betriebe", vbDirectory) HBetrieb And Dir(phqe & "Betriebe", vbDirectory) "Betriebe" Then
Set f = fs.GetFolder(phqe & "Betriebe")
f.Delete
End If
Damit kann ich den kompletten Ordner löschen.
Ich möchte aber nur alle Unterordner des Ordners löschen.
Was muss tun damit ich dies hinbekomme?
Danke im Voraus.
MFG
Steffen Schmerler

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

Betreff
Datum
Anwender
Anzeige
AW: Unterornder löschen
25.08.2007 17:34:00
Nepumuk
Hallo Steffen,
versuch es mal so:
Public Sub test()
    Dim objSubFolder As Object
    For Each objSubFolder In CreateObject("Scripting.FileSystemObject").GetFolder("D:\Testordner").SubFolders
        objSubFolder.Delete
    Next
End Sub

Gruß
Nepumuk

Anzeige
AW: Unterornder löschen --> noch Frage
25.08.2007 18:09:35
SteffenS
Danke erstmal.
Wie kann ich dabei einzelne Unterordner ausschliessen
MFG
Steffen

AW: Unterornder löschen --> noch Frage
25.08.2007 18:11:58
Nepumuk
Hallo Steffen,
woran willst du festmachen, welcher gelöscht wird und welcher nicht?
Gruß
Nepumuk

AW: Unterornder löschen --> noch Frage
25.08.2007 18:14:19
Reinhard

Hi Steffen,
bau mal in die For Schleife ein:
If objSubFolder.Name "abc" and objSubFolder.Name"xyz" then objSubFolder.Delete
Gruß
Reinhard


Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige