Interesting! I tried something similar yesterday, and got a 'bad record 
length error when trying to do the Put.

-- 


Randy Birch
MS MVP Visual Basic
http://vbnet.mvps.org/


"J French"  wrote in message 
news:41b469f6.88497051{at}news.btclick.com...
: On Mon, 6 Dec 2004 11:49:27 +0100, "Stefanie" 
: wrote:
:
: >Steve,
: >
: >Thats the same as writing data to the file using Put, right ?
: >
:
: I could not see your first post
:
: Below is a demo of Random Access using UDTs containing variable length
: strings - the Record Length that it is opened with has to be large
: enough.
: - I would not do it like this personally
:
: Option Explicit
:
: Private Type TRec
:   L As Long
:   S As String
:   I As Integer
: End Type
:
: Private Sub Command1_Click()
:   Dim Rec As TRec, Channel%
:
:   Rec.L = -1
:   Rec.S = "Test String"
:   Rec.I = -1
:
:   Channel = FreeFile
:   Open App.Path + "\test.dat" For Random As Channel Len = 200
:   Put #Channel, 1, Rec
:   Close #Channel
:
: End Sub
:
: Private Sub Command2_Click()
:   Dim Rec As TRec, Channel%
:
:   Channel = FreeFile
:   Open App.Path + "\test.dat" For Random As Channel Len = 200
:   Get #Channel, 1, Rec
:   Close #Channel
:   Me.Print Rec.L, Rec.S, Rec.I
:
: End Sub
:
---
þ RIMEGate(tm)/RGXPost V1.14 at BBSWORLD * Info{at}bbsworld.com

---
 * RIMEGate(tm)V10.2áÿ* RelayNet(tm) NNTP Gateway * MoonDog BBS
 * RgateImp.MoonDog.BBS at 12/7/04 5:54:50 AM