Access: Dateien eines Unterverzeichnisses auslesen

[Martin Schiff]

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