Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
760to764
760to764
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

Verzeichnisstruktur einlesen

Forumthread: Verzeichnisstruktur einlesen

Verzeichnisstruktur einlesen
02.05.2006 13:26:19
Hügi
Hallo zusammen,
ich möchte gerne die Verzeichnisstruktur auf meiner Festplatte c:\ einlesen. Und zwar nur diese Ebene - ohne der Suche nach Dateien.
Könnt Ihr mir da weiterhelfen - in der Recherche habe ich nicht viel gefunden, was mich weiterbringen könnte.
Besten Dank Hügi
Anzeige

1
Beitrag zum Forumthread
Beitrag zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: Verzeichnisstruktur einlesen
02.05.2006 14:29:42
Arthur
Hallo.
Sieh mal in der Hilfe zu Dir() nach.
So sollte es gehen:
&ltpre&gt
Sub abc()
Dim ltPath As String
Dim ltFile As String
' Namen in C:\ anzeigen, die Verzeichnisse darstellen.
ltPath = "C:\"
ltFile = Dir(ltPath, vbDirectory) ' Ersten Eintrag abrufen.
Do While ltFile &lt&gt "" ' Schleife beginnen.
' Aktuelles und übergeordnetes Verzeichnis ignorieren.
If (ltFile &lt&gt "." And ltFile &lt&gt "..") Then
' Mit bit-weisem Vergleich sicherstellen, daß Name1 ein
' Verzeichnis ist.
If (GetAttr(ltPath & ltFile) And vbDirectory) = vbDirectory Then
Debug.Print ltFile ' Eintrag nur anzeigen, wenn es sich
End If ' um ein Verzeichnis handelt.
End If
ltFile = Dir ' Nächsten Eintrag abrufen.
Loop
End Sub&lt/pre&gt
-Art
Anzeige
;

Beliebteste Forumthreads (12 Monate)

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