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