<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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) & "