Function ImalGa(Putanja As String) As Boolean
'*******************************************************
'Ime:      ImalGa (Function)
'Sadrzaj:Provjerava dali postoji fajl na disku
'Autor: zxz
'Datum: 01.09.2013, 12:32:29
'Adresa: Tuzla BiH
'EMail: zxz@icentar.ba
'www: icentar.ba
'Ulazni parametri:Putanja sa imenom fajla
'Izlazni parametri:True/False
'******************************************************
Dim Povrat As String
       
       Povrat = Dir$(Putanja)
       
       If Len(Povrat) > 0 Then
               ImalGa = True
       Else
               ImalGa = False
       End If

End Function