[ Air Live @ 30.06.2009. 13:52 ] @
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
[ captPicard @ 30.06.2009. 17:29 ] @
nešto ti fali u ovoj liniji?

Dim objFile
[ SLOJ.1973 @ 30.06.2009. 17:46 ] @
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