Das Archiv des Excel-Forums

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

Excel-Beispiele zum Thema " Ordnerinhalt anzeigen?"

Anzeigen von Werten und Formeln download UserForm in Abhängigkeit einer RefEdit-Auswahl anzeigen download
Eingangsbildschirm anzeigen download Userform in der Entwicklungsumgebung anzeigen download
Ein Bild sekundenlang anzeigen lassen download Laufwerke im Dialog zur Auswahl anzeigen lassen download
ComboBox in Abhängigkeit von einer CheckBox anzeigen download Bereichsnamen ermitteln und als Kommentare anzeigen download
Bei Doppelklick Kontext-Menü mit Listeneinträgen anzeigen download Bei Eintragungen Wert des Eintrags plus Vorgangswert anzeigen download
Start-UserForm zeitgesteuert anzeigen download Ausgeblendetes Tabellenblatt bei Paßworteingabe anzeigen download
Bei Tabellenaktivierung im Extras-Menü eigenen Menüpunkt anzeigen download Elemente der Gültigkeitsprüfung immer sortiert anzeigen download
Werte aus UserForm-TextBox und aus Tabelle gerundet anzeigen download Bei Eingaben in Spalte B in Spalte A den Maximalwert anzeigen download
Zeilen eines zweiten Blattes im ersten über Drehfeld anzeigen download Datei auswählen, öffnen und Formelsuchdialog anzeigen download
Vorgegebene Anzahl niedrigster Werte anzeigen download Bei Eintragung UserForm mit aktualisierten Werten anzeigen download
Aktuelle Geburtstage beim Öffnen der Arbeitsmappe anzeigen download Beim Öffnen der Arbeitsmappe eine UserForm anzeigen download
Daten der aktuellen Zeile im Kontextmenü anzeigen download Daten der aktuellen Zeile in der Excel-Datenmaske anzeigen download
Bereich aus anderer Tabelle für 2 Sekunden anzeigen download Menüpunkt hinzufügen und bei Aufruf zeitgesteuert UserForm anzeigen download
Gleiche Zufallszahlen zählen und in Diagramm anzeigen download Aktuell verbrachte Arbeitszeit anzeigen download
Text aus letzter Zelle mit Inhalt in UserForm-TextBox anzeigen download Anzahl der durch Autofilter ermittelten Datensätze anzeigen download
Zufallszahl in UserForm-ListBox zentriert anzeigen download Diagramm erstellen, in UserForm anzeigen und drucken download
Internetdaten abrufen und in MsgBox anzeigen download Anzeigen einer UserForm für den Zeitraum von 5 Sekunden download
Autofilter-Kriterien nach dem Filtern anzeigen download Kommentartexte über SVERWEIS ermitteln und anzeigen download
In zweiter UserForm Werte aus erster UserForm anzeigen download Im TextFeld einer UserForm-ComboBox Wert aus 2 Spalten anzeigen download
Zelltext als Hilfetext in einer UserForm anzeigen download Ein UserForm-Label in einer 3D-Darstellung anzeigen download
Formeltexte anzeigen download Über benutzerdefinierte Funktion Filterkriterium anzeigen download
Animierte Grafik in Tabellenblatt anzeigen download Beim Überfahren einer Grafik mit der Maus Uhrzeit anzeigen download
Bei Doppelklick Gebühren aus Tabelle anzeigen download Ein Meldungsfenster für 5 Sekunden anzeigen download
Werte der aktiven Zeile in einer fixen Zeile anzeigen download In Auswahlabhängigkeit unterschiedliche Werte anzeigen download
Korrespondenzwert zum Eingabewert anzeigen download Bei Doppelklick Hilfetext als Kommentar anzeigen. download