VB6.0读写二进制记录式文件

'试验报告数据类型
Public Type Rpt1
    R_GSName As String * 100      
    R_ShiYanPiHao   As String * 50 

    R_ShiYanJiXH As String * 20   

     R_printext1 As String * 100
    R_printext2 As String * 100
    R_printext3 As String * 100
    R_ElasticModulus(6)  As Single  

End Type
Global Rpt As Rpt1

'----------打开文件---------
Public Function OpenRptF() As Long
    RptFNum = FreeFile
    Open App.Path & "\Report.dat" For Random As #RptFNum Len = Len(Rpt)
    OpenRptF = LOF(RptFNum)
End Function
'----------写文件---------
Public Sub WriteRptF(Index As Long)
      
       Put #RptFNum, Index, Rpt
 
End Sub
'----------读文件---------
Public Sub ReadRptF(Index As Long)
      
       Get #RptFNum, Index, Rpt
 
End Sub

'----------关闭试文件---------
Public Sub CloseRptF()
   
    Close #RptFNum
End Sub