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
            Lista = Lista & ImeDir & ";"
        End If
    End If

Loop

Lista = Left(Lista, Len(Lista) - 1)
Me.Fotosi.RowSource = Lista
Kraj:
End Function