Notice: Undefined offset: 2 in /home2/icentarb/public_html/icentar/classes/class.permissions.php on line 735
Function TraziFile(Pocetna As String)
Dim fs
Dim i
Dim Lista As String
Dim Putanja As String
Dim ImeFajla As String
Dim ImeDir As String
If Pocetna = "" Then GoTo Kraj
Putanja = Db_Putanja & "Katalozi\" & Pocetna & "\"
ImeDir = Dir(Putanja, vbDirectory)
Do While ImeDir <> ""
ImeDir = Dir
If ImeDir <> "." And ImeDir <> ".." Then
If (GetAttr(Putanja) And vbDirectory) = vbDirectory Then