DOS komande iz visual basica, da li moze?

[kdejan]

Kako iz visual basica da zadam neku dos komandu? Konkretno mi je trebalo "dir /s /b >tekst.txt" Da li postoji neki drugi ovako jednostavan nacin sa dodjem do podataka o svim fajlovima i poddirektorijumima nekog direktorijuma ili cu ipak morati da pravim malo kompleksnije resenje u vidu podprograma koji bi ovo mogao da uradi?

 

[ssteva]

Nemam instalaliran VB, ali mi se cini da ide ovako nekako:
[code:1]
Shell Environ$("COMSPEC") & "/C dir /s /b >tekst.txt", vbHide
[/code:1]
Environ$("COMSPEC") bi trebalo da vrati cmd.exe (NT, 2000, XP) ili command.com (9X).

 

[kdejan]

Nemam instalaliran VB, ali mi se cini da ide ovako nekako:
[code:1]
Shell Environ$("COMSPEC") & "/C dir /s /b >tekst.txt", vbHide
[/code:1]
Environ$("COMSPEC") bi trebalo da vrati cmd.exe (NT, 2000, XP) ili command.com (9X).

Kada se otkuca ovako kako pise prijavljuje gresku "File not found"

 

[JoeKuboj]

probaj ovako:
[code:1]
Shell Environ$("COMSPEC") & " /C " & "dir /s /b >tekst.txt", vbHide [/code:1]

 

[kdejan]

probaj ovako:
[code:1]
Shell Environ$("COMSPEC") & " /C " & "dir /s /b >tekst.txt", vbHide [/code:1]

Radi, hvala vam obojici!

 

[NikBoss]

ne trebaju ti dos komande za to, jednostavno uvuces referencu na FSO (file system object). on ima mogucnost da pristupa folderima i fiajlovima, tj, u zavisnosti od zadate putanje, nesto tipa:

Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
For Each f1 in fc
s = s & f1.name
Next
ShowFolderList = s
End Function