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

Ordnernamen eines Verzeichnisses listen

Ordnernamen eines Verzeichnisses listen
29.03.2006 12:05:31
Henning
Hallo erstmal.
Wie kann ich alle Ordnernamen eines anzugebenden Verzeichnisses in eine Excel-Tabelle schreiben?
MfG
Hennning

3
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Ordnernamen eines Verzeichnisses listen
29.03.2006 12:56:01
volkerK
hallo Henning,
mit der dir funktion kriegst du das hin.
zb:

Sub list()
z = 0
Pfad = InputBox("Bitte Verzeichnis eingeben", , "c:\")
dat = Dir(Pfad, vbDirectory)
Do While dat <> ""
If dat <> "." And dat <> ".." Then
If (GetAttr(Pfad & dat) And vbDirectory) = vbDirectory Then
z = z + 1
Cells(z, 1) = dat
End If
End If
dat = Dir
Loop
End Sub

falls du dann auch noch untergeordnete ordner brauchst muß noch was geändert werden
gruß volker.
Anzeige
AW: Ordnernamen eines Verzeichnisses listen
29.03.2006 14:02:21
Henning
Danke das funktioniert. Das ist genau das was ich brauche!
MfG
Henning

Links zu Excel-Dialogen

Beliebteste Forumthreads (12 Monate)

Anzeige

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige