MOZEBITIPONOVO | 19.10.2014 09:10 |
---|---|
Predmet:Funkcija FileSearch Pozdrav, probao sam da koristim funkciju FileSearch. Kada stavim .Filename = "NekiNaziv.jpg" ne nađe Fajl iako ga ima u direktorijumu a kada stavim .Filename = "*.jpg", onda prebroji sve fajlove sa ekstenzijom jpg. Gde je problem. Pozdrav! |
zxz | 19.10.2014 19:22 |
---|---|
Predmet:Re: Funkcija FileSearch Evo primjer iz koristan kod. http://www.icentar.ba/...t&id=7179 |
MOZEBITIPONOVO | 19.10.2014 19:28 |
---|---|
Predmet:Re: Funkcija FileSearch Pa taj kod sam i koristio i ponaša se kako sam opisao! |
zxz | 19.10.2014 23:47 |
---|---|
Predmet:Re: Funkcija FileSearch Kod mene radi. Daj svoj kod da vidimo. |
MOZEBITIPONOVO | 20.10.2014 03:20 |
---|---|
Predmet:Re: Funkcija FileSearch Evo kod Public Function SearchFile() Dim A As String A = Forms!frmSLIKE_UNOS_1!NAPOMENA MsgBox A With Application.FileSearch 'odredi opcije trazenja .NewSearch ' nova pretraga .LookIn = "d:\slike_placeno" ' putanja MsgBox .LookIn .SearchSubFolders = True ' trazi i u pod direktorijima .Filename = A ' ime fajla sa exstenzijom MsgBox .Filename '.TextOrProperty = "[boot]" .MatchAllWordForms = True 'ova 2 red nisam siguran kako protumaciti '.FileType = msoFileTypeAllFiles ' tip fajla misli se na exstenziju If .Execute() > 0 Then ' ako je sta nadjeno tada Debug.Print .Execute ' iprintaj u prozor debadjera MsgBox "nadjeno! " & .Execute ' a evo i u mdgbox Else 'ince MsgBox "nije nadjeno!" ' upozorenjeda nije nadjeno End If ' kraj uslova End With ' kraj opcija End Function |
zxz | 20.10.2014 13:42 |
---|---|
Predmet:Re: Funkcija FileSearch Evo napravio formu sa istim imenom kao i tvoja i tekst box Napomena(Nesmije ostati kursor u ovom tekst boxu da bi citao putanju" Napravio dir d:\slike_placeno Napravio file NekiNaziv.jpg. Kada pokrenem proceduru izbacuje mi msg boxove: Nekinaziv.jpg D:\Slike_placeno Nekinaziv.jpg i Nadjeno 1 Ovo zdnje znaci da je nadjen file sa ovim imenom E sad mozda ti ovdje hoces da ti izbaci ime filea ili nesto drugo ali ova procedura kod mene radi. |
zxz | 20.10.2014 14:37 |
---|---|
Predmet:Re: Funkcija FileSearch Nemoj da se sikiras ima i drugih nacina da se to odradi ali je interesantno vidjeti zasto ne radi kod tebe pa da to prvo odgonetnemo. |
zxz | 21.10.2014 08:30 |
---|---|
Predmet:Re: Funkcija FileSearch Evo probaj sa ovom: PreuzmiIzvorni kôd (Visual Basic):
U tvom slucaju bi bio postupak: -Kopirati proceduru u neki modul. -Napraviti neki taster na formi i na on Click tatera staviti kod dim x as boolean Dim a as string a=Forms!frmSLIKE_UNOS_1!NAPOMENA a=imalGa(a) if a= true Msgbox "Fajl postoji else Msgbox "Fajl ne postoji" endif I dalje mi nije jasno zasto ono gore ne radi mada koliko se sjecam FileSearch i ne postoji od neke verzije accessa. Koji ti access korsitis? |
MOZEBITIPONOVO | 21.10.2014 07:02 |
---|---|
Predmet:Re: Funkcija FileSearch Ponovo sam probao, pa sam probao sa immediate prozorom i rezultat isti. Probam da napiÅ¡em u .Filename = "nekinaziv.jpg" i taj fajl imam sigurno u d:\slike_placeno, i dobijem msgbox nije nađeno, a kada stavim *.jpg prebroji sve i msgbox nađeno 278. Isto to probao sam u Immediate prozoru i rezultat je isti. ZaÅ¡to mi treba ova funkcija? Pre pola godine pomogli ste mi oko implementacije rada sa slikama, snimanja fajlova sa slikama na neki folder i upisa putanja u tabelu. I tu se javio problem, desilo se nekoliko puta da su fajlovi koji se upisuju imali isto ime kao i oni koji su već upisani u folder d:\slike_placeno, i naravno novi fajl prepiÅ¡e već upisani. Ovom funkcijom sam hteo da proverim ima li fajla sa imenom slike kojia će se snimati u folder. Pozdrav! |
MOZEBITIPONOVO | 23.10.2014 09:49 |
---|---|
Predmet:Re: Funkcija FileSearch Evo me ponovo, stignem kasnije kući pa sam malo probao ali mi ne ide primena ovog koda. Da li može malo detaljnije objaÅ¡njenje, ako nije problem. Evo uspeo sam na oslu malo vremena da uzmem: Inače koristim Access 2003. Pozdrav! |