VBA: Verzeichnisse inkl. Dateien auflisten

19/09/2008 - 09:16 von Tim Stammberg | Report spam
Hallo NGler,
mit folgendem Makro liste ich alle Dateien eines bestimmten Verzeichnisses
auf.

Sub Dateien_auflisten() 'alle Dateien eines bestimmten Verzeichnisses
auflisten
Dim Dateiname$, i%
Dateiname = Dir$("c:\test\*.*")
'Verzeichnisname as dem die Dateien des definierten Typs ausgelesen werden
sollen
Do While Dateiname <> ""
ActiveCell.Offset(i, 0) = Dateiname
i = i + 1
Dateiname = Dir$()
Loop
End Sub

Ich benötige aber in Spalte A den Verzeichnisnamen aus dem die Datei stammt
und in Spalte B die dazugehörige Datei. ferner soll das Makro auch die
Unterverzeihnisse inkl. deren Inhalts mit auflisten.
Gibt es da irgendwo einen Lösungsansatz der mir weiterhelfen kann?
Gruß
Tim
(excel 2003 SP3 engl)
 

Lesen sie die antworten

#1 Claus Busch
19/09/2008 - 10:48 | Warnen spam
Hallo Tim,

Am Fri, 19 Sep 2008 00:16:01 -0700 schrieb Tim Stammberg:

Ich benötige aber in Spalte A den Verzeichnisnamen aus dem die Datei stammt
und in Spalte B die dazugehörige Datei. ferner soll das Makro auch die
Unterverzeihnisse inkl. deren Inhalts mit auflisten.
Gibt es da irgendwo einen Lösungsansatz der mir weiterhelfen kann?



google mal nach "Dateiinformationen auslesen" vom 30.08.08


Mit freundlichen Grüssen
Claus Busch
Win XP Prof SP2 / Vista Ultimate
Office 2003 SP2 / 2007 Ultimate

Ähnliche fragen