Herbers Excel-Forum - das Archiv

Ordnerinhalt auflisten

Informationen und Beispiele zu den hier genannten Dialog-Elementen:
Bild

Betrifft: Ordnerinhalt auflisten
von: Sonja Krings

Geschrieben am: 26.04.2005 08:40:58
Morgen zusammen,
ich suche eine Möglichkeit in Excel Ordnerinhalte aufzulisten (mit der Größenangabe der Dateien).
schonmal vielen Dank
Bild

Betrifft: AW: Ordnerinhalt auflisten
von: Stefan

Geschrieben am: 26.04.2005 09:25:10
Hallo Sonja!
Hiermit kannst Du schon mal einen Ordner angeben und die Dateien ausgeben. Mit der Größe der Dateien musst Du dann nochmal weiterfragen.
Private Sub CommandButton1_Click()
Dim pfad As String, such As String
Dim Text As String, xxl As String
Dim i As Integer, y As Integer, z As Integer
Dim info As Integer, x As Integer, anz As Integer
Dim fs
Set fs = Application.FileSearch
pfad = InputBox("Geben Sie den Pfad ein", , "C:\Eigene Dateien")
If pfad = "" Then Exit Sub
With fs
.LookIn = pfad
.Filename = "*.*"
'wenn der Pfad nicht existiert Programm abbrechen
If Dir(pfad, vbDirectory) = "" Then
MsgBox "Falsche Pfadangabe !  Das Verzeichnis" & _
vbCrLf & "' " & pfad & " '" & _
vbCrLf & "existiert nicht !", _
vbExclamation, "Fehlermeldung"
Exit Sub
End If
If .Execute(SortBy:=msoSortByFileName, _
SortOrder:=msoSortOrderAscending) > 0 Then
z = Len(.LookIn)
such = "\"
Cells(2, 2) = pfad & " " & .FoundFiles.Count & " Dateien"
y = 3
For i = 1 To .FoundFiles.Count
Cells(y, 2) = .FoundFiles(i)
Text = Cells(y, 2)
anz = Len(Cells(y, 2))
such = "\"
For x = 1 To anz
info = InStr(info + 1, Text, such)
If info = 0 Then GoTo weiter
Cells(y, 2) = Right(Text, anz - info)
xxl = Cells(y, 2)
With ActiveSheet
.Hyperlinks.Add Anchor:=.Cells(y, 2), Address:=Text, _
TextToDisplay:=xxl
End With
Next x
weiter:
y = y + 1
Next i
Columns("B:B").AutoFit
Else
MsgBox "Keine Dateien gefunden"
End If
End With
With Columns("B:B").Font
.Name = "Arial"
.FontStyle = "Standard"
.Underline = xlUnderlineStyleNone
.ColorIndex = 5
End With
With Cells(2, 2).Font
.Name = "Arial"
.FontStyle = "Standard"
.Size = 10
.ColorIndex = xlAutomatic
.Bold = True
End With
End Sub

+++++++++++++++++++++++++++++++++++++++++

Viel Spaß damit
LG Stefan
Bild

Betrifft: AW: Ordnerinhalt auflisten
von: Sonja Krings
Geschrieben am: 26.04.2005 09:34:53
Danke schön !!
 Bild
Excel-Beispiele zum Thema "Ordnerinhalt auflisten"
Alle Prozeduren und Funktionen auflisten VBA-Fehlermeldungen auflisten
Kontextmenüs und ihre Elemente auflisten Verzeichnisbaum aufrufen und Dateien in ListBox auflisten
Inhalt einer Zelle in Minutenabstand in einer Spalte auflisten Bereichsnamen in UserForm-ListBox auflisten und editieren
Farbindex von 1 bis 56 auflisten Doppelt vorkommende Werte mit Zelleadresse auflisten
Doppelte Datensätze farblich markieren und auflisten Werte aus Matrix in zweitem Blatt auflisten