Mozes preko Dir komande da proveris da li postoji neki folder ili fajl, pogledaj help.
Evo ti objasnjenje za jedan 'glupavi' metod, koji ce dobro da ti dodje za vezbanje.
Prvo stavis jedan drivelistbox i preko njega saznas koje drajvove imas na sistemu, a onda za svaki drajv uradis ovo (kroz neku petlju najbolje):
Dim drajv(20) ' valjda nemas vise drajvova na sistemu :)
For i = 1 To Drive1.ListCount
drajv(i) = Drive1.List(i)
temp = Shell("c:\command.com /c dir " & drajv(i) & "\ , /s > c:\" & Left(drajv(i), 1) & "_fajlovi.txt", 1)
Next
i ako si imao recimo a:, c: i d: drajvove, onda ces u rutu c: drajva da imas tri fajla koji sadrze kompletne spiskove fajlova i direktorijuma ovih drajvova :
a_fajlovi.txt
c_fajlovi.txt
d_fajlovi.txt
Sada samo ostaje da ucitas ove fajlove u neku string promenljivu i da pomocu instr funkcije odradis ono sto ti treba :)
Malo je zaguljeno, ali za vezbanje je dusu dalo i to je bas ono sto tebi treba - vezba ;)
P.S.
Inace postoji i neka API fn za ovo, ali kako se zvase zaboravih :)
Pozdrav
fire, walk with me