Private Sub Command12_Click()
 Dim PutanjaD As String
 Dim I As Integer, Imek(4) As String
 Dim P
    
    Imek(0) = "C:/" & ImeCompa
    Imek(1) = "SLIKE"
    Imek(2) = Me.SUBJEKT.Column(1)
    Imek(3) = Me.LOKACIJA.Column(1)
    Imek(4) = Me.OBJEKT.Column(1)

    For I = 0 To 4
        PutanjaD = PutanjaD & Imek(I) & "/"
        ''MsgBox PutanjaD
        P = Dir(PutanjaD, vbDirectory)
        ''MsgBox P
        If P = "" Then
        MkDir PutanjaD
        End If
    Next I

    PutanjaD = "C:/" & ImeCompa & "/" & "SLIKE" & "/" & Me.SUBJEKT.Column(1) & "/" _
    & Me.LOKACIJA.Column(1) & "/" & Me.OBJEKT.Column(1) & "/" & Me.BROJSLIKE & Right(PUTANJA, 4)
    MsgBox PutanjaD
    FileCopy PUTANJA, PutanjaD
    Me.PutanjaD = PutanjaD
    Call upisi2
    
End Sub