Predmet:Re: Uvoz Slika ...
Ja sam ti stavio ime compa umjesto IP compa a kod sam napravio i za IP compa za slucaj da se predomislis.
Po meni i jedno i drugo ima smisla ako postoji mreza pa snimas slike sa drugih racunara u mrezi ovako nisam dokucio zasto ti treba.
Po meni sve ove sline putanje se mogu cuvati u bazi odnosno i imas ih u bazi ali eto mozda nisam ni dokucio do kraja.
evo ti ovaj kod malo prepravljen.
Posto si dodao i dir slike nece napraviti dir.
PreuzmiIzvorni kôd (Visual Basic):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
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.