Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Anzeige
Inhaltsverzeichnis

Dateinamen einlesen

Forumthread: Dateinamen einlesen

Dateinamen einlesen
13.02.2003 17:30:30
Achim
Hallo Leute,

ich habe in einem Ordner mehrere hundert Dateien. Nun möchte ich die Dateinamen aus diesem Ordner auslesen und in Excel weiterverarbeiten.

Ich stelle mir das so vor, das der erste Dateiname in Zelle A1 erscheint, der 2. Dateiname in Zelle A2 u.s.w.

Habt ihr vielleicht ein Makro für mich?

Bisher wurde mir hier immer geholfen, vielleicht auch heute????


Vielen Dank im Voraus
Achim

Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
Re: Dateinamen einlesen
13.02.2003 17:38:01
Michael Scheffler

Hi,

Hilfe etwas verändert:-)

Sub ShowFileList()
Dim fs, f, f1, fc, s
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder("c:\")
Set fc = f.Files
lngrow = 1
For Each f1 In fc
Cells(lngrow, 1) = s & f1.Name
lngrow = lngrow + 1
Next
MsgBox s
End Sub

Gruß

Micha

Anzeige
@Michael Scheffler
13.02.2003 17:53:02
Achim

Hallo Michael,

ich wusste doch, dass man sich auf euch verlassen kann.

Ist doch schon ein WAHNSINNSFORUM hier :-)))))))))


Danke, danke, danke

Gruß
Achim

Forumthreads zu verwandten Themen

Anzeige
Anzeige