Ordnerinhalt anzeigen?

Bild

Betrifft: Ordnerinhalt anzeigen?
von: MichiM
Geschrieben am: 26.09.2003 20:28:37

Hallo,

kann ich mit Excel die Dateien und Unterornder in einem bestimmten Ordner suchen und anzeigen lassen? Wenn ja, wie???

Das ganze sollte ungefähr so aussehen:
In Zelle A1 den Ordner angeben (z.B. C:/...MyMusik)

Ausgabe ab Zelle A2
.../MyMusic/
.../MyMsuic/mx(inArbeit).mp3
.../MyMusic/Mixe/
.../MyMusic/Mixe/mix2001-1.mp3
.../MyMusic/Mixe/mix2001-3.mp3
.../MyMusic/Schlager/
.../MyMusic/Schlager/MatthiasReim/
.../MyMusic/Schlager/MatthiasReim/bleibda.mp3
usw.

Danke vorab für eure Hilfe

MichiM

Bild


Betrifft: AW: Ordnerinhalt anzeigen?
von: PeterW
Geschrieben am: 26.09.2003 20:45:02

Hallo Michi,

diese Frage gibt es hier regelmäßig. Such mal in Google nach
Dateiliste site:herber.de
oder schau dir das an
https://www.herber.de/forum/archiv/196to200/t197344.htm

Gruß
Peter


Bild


Betrifft: klappt noch nicht so richtig
von: MichiM
Geschrieben am: 26.09.2003 23:47:03

Hallo Peter,
man lernt nie aus ;-) Danke

Habe auch was passendes gefunden. Und schon kommt das nächste Problem:
In meinem Ordner befinden sich *.html und *.jpg-Dateien. Mit dem Makro werden aber "nur" die *.html-Dateien angezeigt. Was muss ich da noch ändern?



Sub ScanDir()
  Dim lRow As Long, lCounter As Long
  Dim iCol As Integer
  lRow = 1
  iCol = 1
  With Application.FileSearch
     .LookIn = Range("A1").Value
     .SearchSubFolders = True
     .Execute
     For lCounter = 1 To .FoundFiles.Count
        lRow = lRow + 1
        If lRow = 65537 Then
           lRow = 2
           iCol = iCol + 1
        End If
        Cells(lRow, iCol).Value = .FoundFiles(lCounter)
        Cells(lRow, iCol).Hyperlinks.Add _
           Cells(lRow, iCol), .FoundFiles(lCounter)
        Cells(lRow, iCol + 1).Value = FileDateTime(.FoundFiles(lCounter))
     Next lCounter
  End With
  Columns.AutoFit
End Sub


Gruss
MichiM


Bild


Betrifft: AW: klappt noch nicht so richtig
von: Björn B.
Geschrieben am: 27.09.2003 01:59:31

Hallo Michi,

füge in deinen Code nach With Application.FileSearch eine Zeile mit dem Inhalt
.Filename = "*.*" ein, dann werden alle Dateien angezeigt.

Gruß
Björn


Bild


Betrifft: jetzt funzt es (dank Nachtschicht ;-) OT
von: MichiM
Geschrieben am: 27.09.2003 02:12:32




Bild


Betrifft: Freut mich und danke für die Rückmeldung o. T.
von: Björn B.
Geschrieben am: 27.09.2003 02:16:08




 Bild

Beiträge aus den Excel-Beispielen zum Thema " Ordnerinhalt anzeigen?"