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/6/04 9:52:43 AM