[es] - Pretrazivanje fajlova iz VB -a

sadux

Član broj: 5320
Poruke: 968
*.ptt.yu

Jabber: sadux@elitesecurity.org
ICQ: 337176241

+1 Profil

^{27.09.2002. u 16:42 - pre 262 meseci}

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]

Linux > Linus Torvalds

Odgovor na temu

jc denton

Član broj: 2358
Poruke: 1705
*.ptt.yu

Profil

Re: Pretrazivanje Windows -a iz VB

^{30.09.2002. u 17:23 - pre 262 meseci}

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

Odgovor na temu

sadux

Član broj: 5320
Poruke: 968
*.ptt.yu

Jabber: sadux@elitesecurity.org
ICQ: 337176241

+1 Profil

Re: Pretrazivanje fajlova iz VB -a

^{01.10.2002. u 11:58 - pre 262 meseci}

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 ;)

Linux > Linus Torvalds

Odgovor na temu

sadux

Član broj: 5320
Poruke: 968
*.ptt.yu

Jabber: sadux@elitesecurity.org
ICQ: 337176241

+1 Profil

Re: Pretrazivanje fajlova iz VB -a

^{01.10.2002. u 15:23 - pre 262 meseci}

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

Linux > Linus Torvalds

Odgovor na temu

jc denton

Član broj: 2358
Poruke: 1705
*.ptt.yu

Profil

Re: Pretrazivanje fajlova iz VB -a

^{01.10.2002. u 20:09 - pre 262 meseci}

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

fire, walk with me

Odgovor na temu

sadux

Član broj: 5320
Poruke: 968
*.ptt.yu

Jabber: sadux@elitesecurity.org
ICQ: 337176241

+1 Profil

Re: Pretrazivanje fajlova iz VB -a

^{02.10.2002. u 16:51 - pre 262 meseci}

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!!!!!!!

Linux > Linus Torvalds

Odgovor na temu

Krsta
Krstić Dejan
Programer & Web Developer
Kruševac

Član broj: 2461
Poruke: 307
*.ptt.yu

Sajt: www.atec.rs

+15 Profil

Re: Pretrazivanje fajlova iz VB -a

^{11.10.2002. u 19:46 - pre 261 meseci}

Greska sigurno postoji ako ode u JA

Zasto lepo ne koristis data kontrolu koja je standardna u VB-u,
i sve to povezes vizuelno.

Odgovor na temu