Pretrazivanje fajlova iz VB -a

Cao!
Kako da pomocu API-a ili neceg drugog pretrazujem Windows?
Recimo da imam jednu listu i jedan text pa kad upisem u text *.txt da nadjem sve fajlove
sa tom ekstenzijom i da iste ucitam u listu znaci i sve drive koje ima komp iako su ReadOnly ili Hidden?

E sad kada ih nadjem jel mogu ja ih preimenujem recimon sve koje nadjem *.txt da preimenujen (Rename) u *.doc iz te liste ...
Hvala!!!


[Ovu poruku je menjao jc denton dana 30.09.2002. u 21:15 GMT]

Potpis

Linux > Linus Torvalds

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

Potpis

fire, walk with me

Pa dobro OK provalio sam!!! :)
Ali sta ako nemam u c: command.com?
I necu ja sve fajlove i direktorijume u text fajl nego u obicnu listu na formi?
Znaci one koje ja upisem ovako je DIR i to je OK ali ja dajem uslove recimo koje cu upisati u text1.text i to sve *.txt fajlove!!!! :)
Ajde seti se API - ja pa mi posalji

Ovo je Ok ali mi se iskreno nesto puno i e svidja:) moze nesto malo slozenije...i sa preimenovanjem ;)

Potpis

Linux > Linus Torvalds

i jos nesto....
Kako da obradim gresku cannot find the file treba da mi se otvori baza u istom diru App.Path ali ako je nema kako da obradim gresku pa cu posle ja da pozovem formu na kojoj je obrazlozenje i izlaz

Potpis

Linux > Linus Torvalds

Za onaj file search pogledaj ovo :
http://www.zarr.net/vb/download/codedetail.asp?code=182

Eto API je tu, pa mozes da se igras ;)

A za obradu gresaka probaj standardno :

on error goto greska - ovo ide pre koda u kome moze doci do greske

...
neki kod
...

greska :
debug.print "greska'
exit sub

A, mozes i da ignorises gresku :
on error resume next

Potpis

fire, walk with me

Nije nesto u redu ja napisem On error goto ja ali on iako nije greska pokazuje kod iza JA....
Kad mi se ucita forma imam ovako:

Private Sub Form_Load()
Dim dus As String
dus = App.Path & "\knjiga.mdb"
Data1.DatabaseName = dus
End Sub

Znaci treba da mi otvori bazu gde je i izvrsni fajl i ja sad obradim gresku ovako:


Private Sub Form_Load()
On error Goto ja
Dim dus As String
dus = App.Path & "\knjiga.mdb"
Data1.DatabaseName = dus

Exit Sub

ja:
msgbox "Greska"
end

End Sub

E sad on uvek prikazuje GRESKA iako ima baze u tom direktorijumu
mozda nesto nije u redu?
pomazite poludecu!!!!!!!

Potpis

Linux > Linus Torvalds