Predmet:Re: Uvoz Slika ...

---

Uspeo sam da se izborim, kako si rekao.

Dim PutanjaD As String
Dim I As Integer, Imek(3) As String
Dim P
PutanjaD = "\\192.168.0.10\tabele\"
Imek(1) = Me.SUBJEKT.Column(1)
Imek(2) = Me.LOKACIJA.Column(1)
Imek(3) = Me.OBJEKT.Column(1)
For I = 1 To 3
PutanjaD = PutanjaD & Imek(I) & "\"
P = Dir(PutanjaD, vbDirectory)
If P = "" Then
MkDir PutanjaD
End If

Nastavljam dalje, zahvaljujem i pozdrav!