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