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
|