<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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 & _