Function TraziFajl(Putanja As String) As Boolean Dim Fajl As String Fajl = Dir(Putanja) If Fajl = "" Then TraziFajl = False Else TraziFajl = True End If