Function ImeFajla(PutanjaF As String) As String
    '*******************************************
    'Ime:      ImeDir   (Function)
    'Sadržaj: Odvaja ime fajla od putanje
    'Autor:     ZXZ
    'Datum:      09 01, 2010, 11:36:53
    'Adresa: Tuzla BiH
    'Email:     zxz@icentar.ba
    'Ulazni parametri:Putanja
    'Izlazni parametri:Zadnj dir od putanja
    '*******************************************
       Dim X As Integer
        Dim Putanja As String
       
        On Error Resume Next
    Putanja = PutanjaF
Start:
    Do Until Right$(Putanja, 1) = "\"
            Putanja = Left$(Putanja, Len(Putanja) - 1)
     Loop
     ImeFajla = Mid(PutanjaF, Len(Putanja) + 1)
    End Function
    Function Zaustavi(Trajanje)
    Dim VRIJEME
     
    DoEvents
     
    Trajanje = Trajanje + Timer()
Start:
    VRIJEME = Timer()
    If VRIJEME < Trajanje Then GoTo Start
    End Function
    Function BrisiFile(Putanja As String)
    Dim fs
    Dim I As Integer
       
    Set fs = Application.FileSearch
    With fs
        .LookIn = Putanja
        .FileType = 1
        If .Execute > 0 Then
            For I = 1 To .foundfiles.Count
            Kill .foundfiles(I)
            Next I
        End If
    End With
    End Function