Predmet:Re: Galerija slika
Zamijeni ovu proceduru postojećom pod istim imenom.
PreuzmiIzvorni kôd (Visual Basic):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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.