Prikazi cijelu temu 22.12.2013 23:47
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Private Sub Command12_Click()
  2.  Dim PutanjaD As String
  3.  Dim I As Integer, Imek(4) As String
  4.  Dim P
  5.    
  6.     Imek(0) = "C:/" & ImeCompa
  7.     Imek(1) = "SLIKE"
  8.     Imek(2) = Me.SUBJEKT.Column(1)
  9.     Imek(3) = Me.LOKACIJA.Column(1)
  10.     Imek(4) = Me.OBJEKT.Column(1)
  11.  
  12.     For I = 0 To 4
  13.         PutanjaD = PutanjaD & Imek(I) & "/"
  14.         ''MsgBox PutanjaD
  15.        P = Dir(PutanjaD, vbDirectory)
  16.         ''MsgBox P
  17.        If P = "" Then
  18.         MkDir PutanjaD
  19.         End If
  20.     Next I
  21.  
  22.     PutanjaD = "C:/" & ImeCompa & "/" & "SLIKE" & "/" & Me.SUBJEKT.Column(1) & "/" _
  23.     & Me.LOKACIJA.Column(1) & "/" & Me.OBJEKT.Column(1) & "/" & Me.BROJSLIKE & Right(PUTANJA, 4)
  24.     MsgBox PutanjaD
  25.     FileCopy PUTANJA, PutanjaD
  26.     Me.PutanjaD = PutanjaD
  27.     Call upisi2
  28.    
  29. End Sub
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.