Function DirFajl(Putanja As String, Optional Kriterija As String = "*")
On Error GoTo Error_Handler
    Dim Fajl As String
    Fajl = Dir(Putanja & "*." & Kriterija)
        Do While Fajl <> vbNullString
            If Fajl <> "." And Fajl <> ".." Then
                    Debug.Print "- " & Fajl
            End If
            Fajl = Dir
        Loop
Error_Handler_Exit:
    On Error Resume Next
    Exit Function
Error_Handler:
    MsgBox "The following error has occured." & vbCrLf & vbCrLf & _
            "Error Number: " & Err.Number & vbCrLf & _
            "Error Source: DirFajl" & vbCrLf & _
            "Error Description: " & Err.Description, _
            vbCritical, "An Error has Occured!"
    Resume Error_Handler_Exit
End Function