Herbers Excel-Forum - das Archiv
Ordnerinhalt anzeigen?
- Ordnerinhalt anzeigen? von MichiM vom 26.09.2003 20:28:37
- AW: Ordnerinhalt anzeigen? - von PeterW am 26.09.2003 20:45:02
- klappt noch nicht so richtig - von MichiM am 26.09.2003 23:47:03
- AW: klappt noch nicht so richtig - von Björn B. am 27.09.2003 01:59:31
- jetzt funzt es (dank Nachtschicht ;-) OT - von MichiM am 27.09.2003 02:12:32
- Freut mich und danke für die Rückmeldung o. T. - von Björn B. am 27.09.2003 02:16:08
- Freut mich und danke für die Rückmeldung o. T. - von Björn B. am 27.09.2003 02:16:08
- jetzt funzt es (dank Nachtschicht ;-) OT - von MichiM am 27.09.2003 02:12:32
- AW: klappt noch nicht so richtig - von Björn B. am 27.09.2003 01:59:31
- klappt noch nicht so richtig - von MichiM am 26.09.2003 23:47:03
- AW: Ordnerinhalt anzeigen? - von PeterW am 26.09.2003 20:45:02
 |
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
 |
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
|
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
|
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
|
Betrifft: jetzt funzt es (dank Nachtschicht ;-) OT
von: MichiM
Geschrieben am: 27.09.2003 02:12:32
|
Betrifft: Freut mich und danke für die Rückmeldung o. T.
von: Björn B.
Geschrieben am: 27.09.2003 02:16:08
| |