Wie kann ich unter Access (97) alle Dateien eines Unterverzeichnisses auslesen? Ich kann zwar eine Datei öffnen/lesen, aber wie komme ich zu den Dateinamen die ich öffnen kann?

VB-Programm:

Dim A As Variant
Dim N$

A = Shell("c:\dirzeig.bat", 1)

Open "c:\TEST.TXT" For Input As #1
While Not EOF(1)
Input #1, N$

Open N$ For Input As #2
While Not EOF(2)
Input #2, A$

Wend
Close 2


Wend
Close 1


Ende Basic-Programm

Das DIRZEIG.BAT besteht aus folgender Zeile:
dir C:*.* > c:\test.txt /b/o

Direkter DIR-Befehl im SHELL-Befehl geht nicht (ist kein ausfürhbares Programm).

In N$ steht immer der Name.
Die Innere Schleife zeigt zB daß immer eine zeile des Files eingelesen wird.

Martin

FUNKTIONIERT! ... jedenfalls dann wenn man statt A$ M$ verwendet ;-)

Aber hat vielleicht noch jemand eine Idee wie man das über eine Winapi machen könnte?