Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

Putanja do datoteke

[es] :: Access :: Putanja do datoteke

[ Pregleda: 1228 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Autor
Pretraga teme: Traži
Markiranje Štampanje RSS

Air Live
Srbija

Član broj: 162278
Poruke: 410
92.36.223.*



Profil

icon Putanja do datoteke30.06.2009. u 13:52 - pre 180 meseci
Imam jedno malo glupo pitanje,Zasto ovaj cod nece da ptikaze na txt box-u na formi putanju do snimnjenog fajla.

Code:
Dim ObjFso As Object
Dim ObjFile

Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFso.CreateTextFile("C:\Program Files\CNC\PRO\Asimetrije\" & Me.ID & ".txt", True)

PutanjaSimanja = ObjFile '- ova linija cod-a nece da radi. Da mi u txtbox ocita putanju snimnjenog fajla.

ObjFile.WriteLine balabla.Value


ObjFile.Close
 
Odgovor na temu

captPicard
programer
more i planine

Član broj: 216084
Poruke: 1119



+19 Profil

icon Re: Putanja do datoteke30.06.2009. u 17:29 - pre 180 meseci
nešto ti fali u ovoj liniji?

Dim objFile
F
 
Odgovor na temu

SLOJ.1973

Član broj: 130198
Poruke: 871
*.evizo.net.



+41 Profil

icon Re: Putanja do datoteke30.06.2009. u 17:46 - pre 180 meseci
Probaj ovako:
Code:
Dim ObjFso As Object
Dim ObjFile
Set ObjFso = CreateObject("Scripting.FileSystemObject")
Set ObjFile = ObjFso.CreateTextFile("C:\Program Files\CNC\PRO\Asimetrije\" & Me.ID & ".txt", True)
ObjFile.WriteLine ("test")
ObjFile.Close
ObjFile = "C:\Program Files\CNC\PRO\Asimetrije\" & Me.ID

 Me.PutanjaSnimanja.Value = ObjFile

End Sub
Jednog dana...
 
Odgovor na temu

[es] :: Access :: Putanja do datoteke

[ Pregleda: 1228 | Odgovora: 2 ] > FB > Twit

Postavi temu Odgovori

Srodne teme
Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.