Live-Forum - Die aktuellen Beiträge
Datum
Titel
25.04.2024 00:42:03
Listbox mit gefilterten Daten füllen
24.04.2024 20:38:58
Summe mit Bedingung, nur letzte Ergebnisse anzeigen
24.04.2024 19:29:30
Formel filter
24.04.2024 18:49:56
merge & select
Du findest keine passende Antwort auf Deine Frage?
Stelle Deine Frage in unserem Live-Forum
Anzeige
Archiv - Navigation
320to324
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
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
320to324
320to324
Aktuelles Verzeichnis
Verzeichnis Index
Verzeichnis Index
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

ordner eines laufwerkes

ordner eines laufwerkes
13.10.2003 22:06:06
jhaustein
hallo gemeinschaft

hatte diese frage schonmal gestellt kam aber nicht zu einem ergebnis

ich möchte gerne alle ordner mit pfadangabe aufgelistet haben (in einem tabellenblatt oder in einer uf )

könnt ihr mir dabei bitte helfen

gruss
jörg

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

Betreff
Datum
Anwender
Anzeige
AW: ordner eines laufwerkes
14.10.2003 07:24:08
GraFri
Hallo



'Erstelle eine UserForm mit 2 Listenfelder (Namen: 'lisOrdner' und 'lisDateien')
'und 2 CommandButton (Name: 'CmdOk' und 'CmdAbbrechen'). Anschließend Code
'in die Dekleration der UserForm kopieren.

Const FILEPATH$ = "D:\Daten"    ' Beispielpfad
Dim VerzeichnisListe()
Dim Dateiname   As String


' Initialisierung
Private Sub UserForm_Initialize()

'Einlesen der Unterferzeichnisse
Call Verzeichnisse_einlesen

End Sub

Sub Verzeichnisse_einlesen()

Dim myFile As String
Dim x           As Integer
Dim myFso       As Object
Dim myFolder    As Object
    
    Set myFso = CreateObject("Scripting.FileSystemObject")
    Set myFolder = myFso.GetFolder(FILEPATH)
    
    x = 1
    For Each sFld In myFolder.SubFolders
        ReDim Preserve VerzeichnisListe(1 To x)
        VerzeichnisListe(x) = sFld.Name
        lisOrdner.AddItem VerzeichnisListe(x)
        x = x + 1
    Next
    
    Set myFolder = Nothing
    Set myFso = Nothing

End Sub
Private Sub lisOrdner_Click()
Dim Datei           As String
Dim x               As Long
Dim DateiListe()

'Löschen der Tagesliste
lisDateien.List = Array("")

Datei = Dir(FILEPATH & "\" & lisOrdner.Value & "\*.xls")

x = 0
Do While Datei <> ""
    x = x + 1
    ReDim Preserve DateiListe(0 To x)
    Datei = Dir
    DateiListe(x) = Datei
Loop
    
On Error Resume Next
lisDateien.List() = DateiListe
lisDateien.RemoveItem (0)
End Sub

Sub lisDateien_Click()
Dateiname = lisDateien.Value
End Sub

Private Sub CmdOk_Click()

If Dateiname <> "" Then
    Workbooks.Open FILEPATH & "\" & lisOrdner.Value & "\" & Dateiname
End If

Unload Me

End Sub

Private Sub CmdAbbrechen_Click()
    Unload Me
End Sub



     Code eingefügt mit Syntaxhighlighter 2.4


mfg, GraFri
Anzeige
AW: ordner eines laufwerkes
14.10.2003 07:56:58
jhaustein
ich möchte eigentlich keinen pfad eingeben müssen.

es sollen alle ordner auch alle unterordner eingelesen werden können

kannst du da was machen

gruss
jörg
AW: ordner eines laufwerkes
14.10.2003 09:48:39
jhaustein
hi grafi

vielen dank für dein script - leider läuft es noch nicht bei mir so richtig - vielleicht kannst du dich ja nochmal melden hier im thread oder per mail

Beliebteste Forumthreads (12 Monate)

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

Beliebteste Forumthreads (12 Monate)

Anzeige
Anzeige
Anzeige