S: Programm zu Verzeichnisse auslesen

Diesen Thread gibt es bereits:

Ordnerstruktur ausdrucken

Ich persönlich empfehle jedoch die kleine und feine Freeware

Directory Lister

Die rar-Version reicht völlig aus ;).

Grüße, Öle

hi,

der DOS Befehl:

dir c: /AD /S /B > c:\ordnerstruktur.txt

würde die Ordnerstruktur des Laufwerks C: in die Datei c:\ordnerstruktur.txt schreiben.

...evtl. was zu spät, aber wers für excel braucht:

Sub FilSearch()


Const SUCHBEGRIFF = "*.mp3" '<- Dateiendung (*.* für alle)
Dim Row As Integer
Dim IndLen As Integer
Dim Zw_IndLen As Integer
Dim gefundeneDatei As Variant


With Application.FileSearch
    .NewSearch
    .LookIn = "C:\"  '<- Laufwerk/Verzeichnis
    .SearchSubFolders = True  'True = mit Unterverzeichnisse, False = ohne
    .Filename = SUCHBEGRIFF


If .Execute > 0 Then


    For Row = 1 To .FoundFiles.Count
    gefundeneDatei = .FoundFiles(Row)


    For IndLen = 1 To Len(gefundeneDatei)
    If Mid(gefundeneDatei, IndLen, 1) = "\" Then Zw_IndLen = IndLen


Next IndLen


Worksheets(1).Cells(Row + 1, 1).Value = .FoundFiles(Row)
Worksheets(1).Cells(Row + 1, 2).Value = Right(gefundeneDatei, Len(gefundeneDatei) - Zw_IndLen)
b = Left(gefundeneDatei, Len(gefundeneDatei) - (IndLen - Zw_IndLen))
Worksheets(1).Cells(Row + 1, 3).Value = b + "\"
Next Row


End If
End With
Range("A1").Select
    With Selection
        .Offset(0, 0).Value = "Vollständiger_Pfad"
        .Offset(0, 1).Value = "Dateiname"
        .Offset(0, 2).Value = "Verzeichnis"
    End With
Cells.Select
Selection.Columns.AutoFit
Range("A1").Select
End Sub

einfach in excel mit ALT+F11 in den vba-editor gehen, doppelklick auf "diese arbeitsmappe", code einfügen, entsprechend dateiendung und verzeichnis ändern und dann starten (F5).

in spalte A wird der vollständige pfad geschrieben (C:\mp3s\legale.mp3 )
in B der dateiname (legale.mp3)
in C das verzeichnis (C:\mp3s\)

Zitat

Original geschrieben von NoxX
...evtl. was zu spät, aber wers für excel braucht:

PHP

Sub FilSearch()


Const SUCHBEGRIFF = "*.mp3" '<- Dateiendung (*.* für alle)
Dim Row As Integer
Dim IndLen As Integer
Dim Zw_IndLen As Integer
Dim gefundeneDatei As Variant


With Application.FileSearch
    .NewSearch
    .LookIn = "C:\"  '<- Laufwerk/Verzeichnis
    .SearchSubFolders = True  'True = mit Unterverzeichnisse, False = ohne
    .Filename = SUCHBEGRIFF


If .Execute > 0 Then


    For Row = 1 To .FoundFiles.Count
    gefundeneDatei = .FoundFiles(Row)


    For IndLen = 1 To Len(gefundeneDatei)
    If Mid(gefundeneDatei, IndLen, 1) = "\" Then Zw_IndLen = IndLen


Next IndLen


Worksheets(1).Cells(Row + 1, 1).Value = .FoundFiles(Row)
Worksheets(1).Cells(Row + 1, 2).Value = Right(gefundeneDatei, Len(gefundeneDatei) - Zw_IndLen)
b = Left(gefundeneDatei, Len(gefundeneDatei) - (IndLen - Zw_IndLen))
Worksheets(1).Cells(Row + 1, 3).Value = b + "\"
Next Row


End If
End With
Range("A1").Select
    With Selection
        .Offset(0, 0).Value = "Vollständiger_Pfad"
        .Offset(0, 1).Value = "Dateiname"
        .Offset(0, 2).Value = "Verzeichnis"
    End With
Cells.Select
Selection.Columns.AutoFit
Range("A1").Select
End Sub

Alles anzeigen

einfach in excel mit ALT+F11 in den vba-editor gehen, doppelklick auf "diese arbeitsmappe", code einfügen, entsprechend dateiendung und verzeichnis ändern und dann starten (F5).

in spalte A wird der vollständige pfad geschrieben (C:\mp3s\legale.mp3 )
in B der dateiname (legale.mp3)
in C das verzeichnis (C:\mp3s\)

Alles anzeigen

Weiß jemand ob das auch in Excel 2003 geht? denn bei mir schreibt es nichts in die Spalten rein! Nur die Überschriften stehen drin.

du musst auch dein laufwerk anpassen im code

.LookIn = "C:\" '<- Laufwerk/Verzeichnis

Das ist mir klar, die Dateien die ich suche sind in C:\

hast du die konstante geändert?

Const SUCHBEGRIFF = "*.mp3" '<- Dateiendung (*.* für alle)

wenn du keine mp3´s auf C hast, findet er auch nichts