Thema Datum  Von Nutzer Rating
Antwort
01.03.2021 08:20:59 Willi
NotSolved
01.03.2021 08:54:10 Mase
NotSolved
01.03.2021 12:58:47 Gast93624
NotSolved
Blau Ordnerinhalt auslesen
 01.03.2021 13:37:31 Mase
NotSolved
01.03.2021 17:06:02 Willi
NotSolved
01.03.2021 17:37:47 Mase
Solved
01.03.2021 20:42:54 Trägheit
NotSolved
01.03.2021 21:36:22 Willi
NotSolved
08.04.2021 13:35:53 Willi
NotSolved
08.04.2021 16:36:21 Mase
NotSolved

Ansicht des Beitrags:
Von:
Mase		 Datum:
01.03.2021 13:37:31		 Views:
536		 Rating:
     
Antwort:
  Ja
Thema:
Ordnerinhalt auslesen

Dachte Ich mir schon fast... macht aber nix, habs Dir einigermaßen noch kommentiert:

Option Explicit
'*** modulweite Deklaration
Private fso As Object
'***

Sub main()

    '*** Definitionsteil
    Set fso = CreateObject("Scripting.FileSystemObject")
    
    '*** Bei durchlauf Worksheet leeren und Überschriften setzen
    With ThisWorkbook.Worksheets(1)
        .Cells.Clear
        .Range("A1").Value = "Pfad und Link"
        .Range("A1").Value = "Dateiname"
    End With
    
    '*** Startordner und dessen Unterordner durchsuchen
    DurchsucheOrdner "C:\Test\"         '<~~ anzupassen
    
End Sub
  
Sub DurchsucheOrdner(ByVal sPfad As String)
  
    Dim fil                                     As Object
    Dim fldr                                    As Object

    '*** Prozedur durchsucht Ordner nach Unterordner und ruft sich selbst bei Fund wiedre auf
    For Each fldr In fso.GetFolder(sPfad).SubFolders
        Call DurchsucheOrdner(fldr.Path)
    Next fldr
    
    '*** Durchsuche Ordner nach Dateien
    '*** Schreibe Dateiname und Hyperlink ins Tabellenblatt
    For Each fil In fso.GetFolder(sPfad).Files
        With ThisWorkbook.Worksheets(1).Cells(Rows.Count, 1).End(xlUp)
            '*** Hyperlink
            .Parent.Hyperlinks.Add Anchor:=.Offset(1, 0), Address:=fil.Path
            '*** Dateiname
            .Offset(1, 1).Value = fil.Name
        End With
    Next
    
    
End Sub

 

Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:



  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
01.03.2021 08:20:59 Willi
NotSolved
01.03.2021 08:54:10 Mase
NotSolved
01.03.2021 12:58:47 Gast93624
NotSolved
Blau Ordnerinhalt auslesen
 01.03.2021 13:37:31 Mase
NotSolved
01.03.2021 17:06:02 Willi
NotSolved
01.03.2021 17:37:47 Mase
Solved
01.03.2021 20:42:54 Trägheit
NotSolved
01.03.2021 21:36:22 Willi
NotSolved
08.04.2021 13:35:53 Willi
NotSolved
08.04.2021 16:36:21 Mase
NotSolved