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