Private Sub Uvoz_slike_Click()
 
 Dim fd As FileDialog
 Dim PutanjaD As String
 Dim I As Integer, Imek(3) As String
 Dim P
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    Dim vrtSelectedItem As Variant
    With fd
        .Filters.Clear
        .Title = "Pronai sliku"
        .Filters.Add "All files", "*.*"
        .Filters.Add "Images", "*.gif; *.jpg; *.jpeg", 1
        If .Show = -1 Then
            For Each vrtSelectedItem In .SelectedItems
                 slika.Picture = vrtSelectedItem
                 Putanja = vrtSelectedItem
            Next vrtSelectedItem
        Else
        End If
    End With
    PutanjaD = PutanjaB
    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
    Next I
    Set fd = Nothing
    PutanjaD = PutanjaD & Me.BrojSlike & Right(Putanja, 4)
    FileCopy Putanja, PutanjaD
    Me.PutanjaD = PutanjaD
End Sub