Verzeichnisbaum in Listbox

Forumthread: Verzeichnisbaum in Listbox
1 Beitrag zu diesem Forumthread
Anzeige
Top 100 Forumthreads

Forumthread: Verzeichnisbaum in Listbox

03.02.2004 15:09:59

Torste

Hallo,
ich habe viele Unterverzeichnisse unter z.B: D:\Daten
D:\Daten\01
D:\Daten\02
D:\Daten\03
D:\Daten\04\Test
D:\Daten\05
etc.
Ich möchte mir in einer Listbox jeweils den 1. Unterordner unter D:\ anzeige lassen, also:
01
02
03
04
05
etc.
Hat jemand einen Tipp??
Danke und Gruss,
Torsten

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread

Betreff

Datum

Anwender

AW: Verzeichnisbaum in Listbox

03.02.2004 16:53:43

Axel

AW: Verzeichnisbaum in Listbox

03.02.2004 16:53:43

Axel

Hallo,
normalerweise löst man solche Aufgaben mit den FSO, den FileSystemObjects. Allerdings stehen diese erst ab VBA6, also Excel 2000 zur Verfügung.
Der folgende Code funktioniert auch unter Exel 97.
Die Verzeichnisse gebe ich hier im Direktfenster aus, das Zuweisen an die Listbox überlasse ich dir.
Gruß
Axel


Private DeclareFunction GetFileAttributes Lib "kernel32" Alias "GetFileAttributesA" ( _
ByVal lpFileName As String) As Long
Const FILE_ATTRIBUTE_DIRECTORY = &H10

Sub x()
Dim strFile As String
strFile = Dir("D:\Daten\*")
While (Len(strFile))
' auf Verzeichnis prüfen
If GetFileAttributes(strFile) And FILE_ATTRIBUTE_DIRECTORY Then
Debug.Print strFile
End If
' nächste Datei zuweisen
strFile = Dir   ' Dir() jetzt ohne Argumente !!!
Wend
End Sub


                                    

    Anzeige


                
    ;

    
    
    
    
    
    

    
    
    
            

    
        
        Beliebteste Forumthreads (12 Monate)
    
    
    
        
            Threadtitel
            Lesezugriffe
        
                                
                                
                    
                                        
                    
                        excel wenn zelle bestimmten textteil enthält, dann
                    
                
                
                    
                        
                        16524
                    
                
            
                                        
                                
                    
                                        
                    
                        excel wenn zelle größer als andere zelle dann farbe
                    
                
                
                    
                        
                        16377
                    
                
            
                                        
                                
                    
                                        
                    
                        excel alles links von zeichen ausgeben
                    
                
                
                    
                        
                        14377
                    
                
            
                                            
                    
                        
                            
                        
                        
                            
                        
                                
                    
                                        
                    
                        excel wenn in zelle bestimmter text dann andere zelle farbe
                    
                
                
                    
                        
                        12327
                    
                
            
                                        
                                
                    
                                        
                    
                        excel text vor zahl einfügen
                    
                
                
                    
                        
                        10993
                    
                
            
                                        
                                
                    
                                        
                    
                        excel wenn zeichenfolge enthalten dann
                    
                
                
                    
                        
                        9700
                    
                
            
                                        
                                
                    
                                        
                    
                        kann in excel nicht mehr scrollen
                    
                
                
                    
                        
                        9310
                    
                
            
                                        
                                
                    
                                        
                    
                        excel erstes zeichen abschneiden
                    
                
                
                    
                        
                        8987
                    
                
            
                                        
                                
                    
                                        
                    
                        excel formeln übertragen ohne änderung
                    
                
                
                    
                        
                        8929
                    
                
            
                                        
                                
                    
                                        
                    
                        excel wenn dann wert aus anderer zelle
                    
                
                
                    
                        
                        8174
                    
                
            
                                        
                                
                    
                                        
                    
                        summewenn mit sverweis
                    
                
                
                    
                        
                        7675
                    
                
            
                                        
                                
                    
                                        
                    
                        excel wenn zelle teil eines textes enthält
                    
                
                
                    
                        
                        7535
                    
                
            
                                        
                                
                    
                                        
                    
                        wenn wert negativ dann 0
                    
                
                
                    
                        
                        7442
                    
                
            
                                        
                                
                    
                                        
                    
                        excel zelle färben wenn wert in anderer tabelle
                    
                
                
                    
                        
                        7418
                    
                
            
                                        
                                
                    
                                        
                    
                        excel 2 zeichen von links abschneiden
                    
                
                
                    
                        
                        7294
                    
                
            
                                        
                                
                    
                                        
                    
                        excel summe null angezeigt
                    
                
                
                    
                        
                        7121
                    
                
            
                                        
                                
                    
                                        
                    
                        zählenwenn doppelte werte ausschließen
                    
                
                
                    
                        
                        7036
                    
                
            
                                        
                                
                    
                                        
                    
                        zeichen in excel entfernen
                    
                
                
                    
                        
                        6996
                    
                
            
                                        
                                
                    
                                        
                    
                        excel text kürzen ab zeichen
                    
                
                
                    
                        
                        6765
                    
                
            
                                        
                                
                    
                                        
                    
                        power query führende nullen entfernen
                    
                
                
                    
                        
                        6714
                    
                
            
                                        
                                
                    
                                        
                    
                        excel wenn wert in einer spalte vorhanden dann
                    
                
                
                    
                        
                        6588
                    
                
            
                                        
                                
                    
                                        
                    
                        excel zählenwenn zeitraum
                    
                
                
                    
                        
                        6479
                    
                
            
                                        
                                
                    
                                        
                    
                        excel text ab bestimmten zeichen
                    
                
                
                    
                        
                        6304
                    
                
            
                                        
                                
                    
                                        
                    
                        excel zählenwenn oder funktion
                    
                
                
                    
                        
                        6279
                    
                
            
                                        
                                
                    
                                        
                    
                        excel zelle ab zeichen auslesen
                    
                
                
                    
                        
                        6206
                    
                
            
                                        
                                
                    
                                        
                    
                        excel datum uhrzeit in einer zelle
                    
                
                
                    
                        
                        6166
                    
                
            
                                        
                                
                    
                                        
                    
                        sonderzeichen zeilenumbruch
                    
                
                
                    
                        
                        5952
                    
                
            
                                        
                                
                    
                                        
                    
                        excel makro letzte zeile ermitteln
                    
                
                
                    
                        
                        5904
                    
                
            
                                        
                                
                    
                                        
                    
                        excel zeichen zählen bis leerzeichen
                    
                
                
                    
                        
                        5886
                    
                
            
                                        
                                
                    
                                        
                    
                        excel zeilen dynamisch ausblenden
                    
                
                
                    
                        
                        5534
                    
                
            
                                        
                                
                    
                                        
                    
                        excel text aus zwei zellen zusammenführen mit absatz
                    
                
                
                    
                        
                        5403
                    
                
            
                                        
                                
                    
                                        
                    
                        vba auskommentieren shortcut
                    
                
                
                    
                        
                        5277
                    
                
            
                                        
                                
                    
                                        
                    
                        excel zählenwenns enthält text
                    
                
                
                    
                        
                        5175
                    
                
            
                                        
                                
                    
                                        
                    
                        excel anderes tabellenblatt verlinken
                    
                
                
                    
                        
                        5128
                    
                
            
                                        
                                
                    
                                        
                    
                        excel die ersten 4 zeichen löschen
                    
                
                
                    
                        
                        5093
                    
                
            
                                        
                                
                    
                                        
                    
                        excel letzte 3 zeichen einer zelle auslesen
                    
                
                
                    
                        
                        5012
                    
                
            
                                        
                                
                    
                                        
                    
                        word shortcut zellen verbinden
                    
                
                
                    
                        
                        4974
                    
                
            
                                        
                                
                    
                                        
                    
                        excel makro zellen löschen
                    
                
                
                    
                        
                        4868
                    
                
            
                                        
                                
                    
                                        
                    
                        mauszeiger fadenkreuz tastenkombination
                    
                
                
                    
                        
                        4852
                    
                
            
                                        
                                
                    
                                        
                    
                        excel makro text in zelle schreiben
                    
                
                
                    
                        
                        4803
                    
                
            
                                        
                                
                    
                                        
                    
                        excel datum rot färben wenn älter als
                    
                
                
                    
                        
                        4767
                    
                
            
                                        
                                
                    
                                        
                    
                        excel anführungszeichen in text einfügen
                    
                
                
                    
                        
                        4718
                    
                
            
                                        
                                
                    
                                        
                    
                        excel tabelle zeilen verbinden geht nicht
                    
                
                
                    
                        
                        4660
                    
                
            
                                        
                                
                    
                                        
                    
                        excel wert in tabelle suchen und zeile ausgeben
                    
                
                
                    
                        
                        4450
                    
                
            
                                        
                                
                    
                                        
                    
                        excel datum kleiner als
                    
                
                
                    
                        
                        4369
                    
                
            
                                        
                                
                    
                                        
                    
                        excel addieren wenn zahl größer 0
                    
                
                
                    
                        
                        4337
                    
                
            
                                        
                                
                    
                                        
                    
                        excel zelle übernehmen
                    
                
                
                    
                        
                        4244
                    
                
            
                                        
                                
                    
                                        
                    
                        wenn zellen leer dann
                    
                
                
                    
                        
                        4183
                    
                
            
                                        
                                
                    
                                        
                    
                        excel vba farbe ändern
                    
                
                
                    
                        
                        4179
                    
                
            
                                        
                                
                    
                                        
                    
                        kw in monat umwandeln excel
                    
                
                
                    
                        
                        4164
                    
                
            
                                        
                                
                    
                                        
                    
                        summewenn nicht wert
                    
                
                
                    
                        
                        4139
                    
                
            
                                        
                                
                    
                                        
                    
                        entfernung zwischen zwei orten google maps
                    
                
                
                    
                        
                        4132
                    
                
            
                                        
                                
                    
                                        
                    
                        excel auswahlfeld ja nein
                    
                
                
                    
                        
                        4055
                    
                
            
                                        
                                
                    
                                        
                    
                        excel datum in monat umwandeln
                    
                
                
                    
                        
                        4049
                    
                
            
                                        
                                
                    
                                        
                    
                        wenn wert 0 dann zelle leer
                    
                
                
                    
                        
                        4047
                    
                
            
                                        
                                
                    
                                        
                    
                        wenn #nv dann 0
                    
                
                
                    
                        
                        4021
                    
                
            
                                        
                                
                    
                                        
                    
                        tastenkombination excel tabellenblatt wechseln
                    
                
                
                    
                        
                        3997
                    
                
            
                                        
                                
                    
                                        
                    
                        excel vba wert in spalte suchen und zelle ausgeben
                    
                
                
                    
                        
                        3902
                    
                
            
                                        
                                
                    
                                        
                    
                        excel datum wird nicht richtig angezeigt
                    
                
                
                    
                        
                        3868
                    
                
            
                                        
                                
                    
                                        
                    
                        excel makro anhalten
                    
                
                
                    
                        
                        3828
                    
                
            
                                        
                                
                    
                                        
                    
                        excel zeile übernehmen wenn bedingung erfüllt
                    
                
                
                    
                        
                        3802
                    
                
            
                                        
                                
                    
                                        
                    
                        excel tabellenblattname aus zelle
                    
                
                
                    
                        
                        3799
                    
                
            
                                        
                                
                    
                                        
                    
                        excel summe aus mehreren spalten
                    
                
                
                    
                        
                        3770
                    
                
            
                                        
                                
                    
                                        
                    
                        excel wenn uhrzeit größer dann
                    
                
                
                    
                        
                        3755
                    
                
            
                                        
                                
                    
                                        
                    
                        excel text aus zelle in formel übernehmen
                    
                
                
                    
                        
                        3753
                    
                
            
                                        
                                
                    
                                        
                    
                        excel größer als aber kleiner als
                    
                
                
                    
                        
                        3734
                    
                
            
                                        
                                
                    
                                        
                    
                        mehrere hyperlinks in excel einfügen
                    
                
                
                    
                        
                        3703
                    
                
            
                                        
                                
                    
                                        
                    
                        excel text suchen von rechts
                    
                
                
                    
                        
                        3677
                    
                
            
                                        
                                
                    
                                        
                    
                        msgbox vba yes no
                    
                
                
                    
                        
                        3665
                    
                
            
                                        
                                
                    
                                        
                    
                        excel wenn formatierung farbe dann
                    
                
                
                    
                        
                        3641
                    
                
            
                                        
                                
                    
                                        
                    
                        excel formel nur zahlen aus zelle
                    
                
                
                    
                        
                        3599
                    
                
            
                                        
                                
                    
                                        
                    
                        excel text aus zelle auslesen und einfügen
                    
                
                
                    
                        
                        3582
                    
                
            
                                        
                                
                    
                                        
                    
                        excel e+11 entfernen
                    
                
                
                    
                        
                        3561
                    
                
            
                                        
                                
                    
                                        
                    
                        excel summewenns datumsbereich
                    
                
                
                    
                        
                        3547
                    
                
            
                                        
                                
                    
                                        
                    
                        excel summe ohne bestimmte zellen
                    
                
                
                    
                        
                        3513
                    
                
            
                                        
                                
                    
                                        
                    
                        bereiche in excel sperren
                    
                
                
                    
                        
                        3478
                    
                
            
                                        
                                
                    
                                        
                    
                        excel nummeriert nicht fortlaufend
                    
                
                
                    
                        
                        3400
                    
                
            
                                        
                                
                    
                                        
                    
                        spalte xxx
                    
                
                
                    
                        
                        3374
                    
                
            
                                        
                                
                    
                                        
                    
                        excel kennwort vergessen
                    
                
                
                    
                        
                        3359
                    
                
            
                                        
                                
                    
                                        
                    
                        aktuelle zeit excel
                    
                
                
                    
                        
                        3330
                    
                
            
                                        
                                
                    
                                        
                    
                        bedingte formatierung auf andere zeilen übertragen
                    
                
                
                    
                        
                        3270
                    
                
            
                                        
                                
                    
                                        
                    
                        min in stunden umrechnen excel
                    
                
                
                    
                        
                        3229
                    
                
            
                                        
                                
                    
                                        
                    
                        sverweis null nicht anzeigen
                    
                
                
                    
                        
                        3211
                    
                
            
                                        
                                
                    
                                        
                    
                        excel alles nach zeichen löschen
                    
                
                
                    
                        
                        3192
                    
                
            
                                        
                                
                    
                                        
                    
                        excel gestrichelte graue linie entfernen
                    
                
                
                    
                        
                        3179
                    
                
            
                                        
                                
                    
                                        
                    
                        excel 3 zeichen von links löschen
                    
                
                
                    
                        
                        3101
                    
                
            
                                        
                                
                    
                                        
                    
                        excel bedingte formatierung formel größer gleich
                    
                
                
                    
                        
                        3094
                    
                
            
                                        
                                
                    
                                        
                    
                         Verzeichnisbaum in Listbox
                    
                
                
                    
                        
                        3094
                    
                
            
                                        
                                
                    
                                        
                    
                        excel gruppierung oben statt unten
                    
                
                
                    
                        
                        3079
                    
                
            
                                        
                                
                    
                                        
                    
                        excel formel kopieren ohne anpassung
                    
                
                
                    
                        
                        3077
                    
                
            
                                        
                                
                    
                                        
                    
                        excel datei gruppe
                    
                
                
                    
                        
                        3057
                    
                
            
                                        
                                
                    
                                        
                    
                        excel bestimmte inhalte aus zellen löschen
                    
                
                
                    
                        
                        3046
                    
                
            
                                        
                                
                    
                                        
                    
                        zeit dezimal in stunden und minuten excel
                    
                
                
                    
                        
                        3043
                    
                
            
                                        
                                
                    
                                        
                    
                        aktuelles datum excel automatisch
                    
                
                
                    
                        
                        3034
                    
                
            
                                        
                                
                    
                                        
                    
                        excel text zu zelle hinzufügen
                    
                
                
                    
                        
                        3030
                    
                
            
                                        
                                
                    
                                        
                    
                        excel prüfung
                    
                
                
                    
                        
                        3027
                    
                
            
                                        
                                
                    
                                        
                    
                        vba pause wait
                    
                
                
                    
                        
                        3026
                    
                
            
                                        
                                
                    
                                        
                    
                        zählenwenn mit filter
                    
                
                
                    
                        
                        2994
                    
                
            
                                        
                                
                    
                                        
                    
                        excel blattname aus zelle auslesen
                    
                
                
                    
                        
                        2985
                    
                
            
                                        
                                
                    
                                        
                    
                        datum wird in excel nicht erkannt
                    
                
                
                    
                        
                        2941
                    
                
            
                            
 
 
 
 

 

    
    
    

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


    
    
        
        
    
        
            
            Vorheriger Thread
            Vorheriger Thread
        
        
            Rückwärts Blättern
        
    
    
        
            
            372to376
            372to376
        
        
            Aktuelles Verzeichnis
        
    
    
        
            
            Verzeichnis Übersicht
            Verzeichnis Übersicht
        
        
            Übersicht Verzeichnisse
        
    
    
        
            Nächster Thread
            Nächster Thread
            
        
        
            Vorwärts blättern
        
    

        

    Anzeige

 

            
            
                
                
                
                

    Anzeige
    
        
                    
            
                
    

                

    Anzeige
    
        
                    
            
                
    

                

                
                
                
                    
        Entdecke mehr
    
                    
            
                
                    
                        
                            
                            Finde genau, was du suchst
                        
                        Die erweiterte Suchfunktion hilft dir, gezielt die besten Antworten
                            zu finden
                        
                            
                            Suche nach den besten Antworten
                        
                    
                
            
                            
            
                
                    
                        
                            
                            Unsere beliebtesten Threads
                        
                        Entdecke unsere meistgeklickten Beiträge in der Google Suche
                        
                            
                            Top 100 Threads jetzt ansehen
                        
                    
                
            
                
    

                
                
                

    Anzeige

Verzeichnisbaum in Listbox

Forumthread: Verzeichnisbaum in Listbox

1 Beitrag zum Forumthread Beitrag zu diesem Forumthread

Beliebteste Forumthreads (12 Monate)

1
Beitrag zum Forumthread

Beitrag zu diesem Forumthread