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

Function PutanjaB()

Dim Db As Database

Dim Rs As Recordset

Dim Putanja As String

 

Set Db = CurrentDb

Set Rs = Db.OpenRecordset("SELECT database from MsysObjects WHERE Database<>Null")

 

If Rs.RecordCount > 0 Then

Putanja = Rs.Fields(0)

Putanja = Mid(Putanja, 1, Len(Putanja) - 1)

Loop While Right(Putanja, 1) <> "\"

PutanjaB = Putanja

End If

End Function