Put:写
Get:读
Lof:取文件大小(单位:字节),把它除以Len(a)就得到记录条数

解决方案 »

  1.   

    Get 文件号, 读取起始位置(可省), a
      

  2.   

    Get 文件号, 读取起始位置(可省), a
      

  3.   

    Private Type stu
         name As String
         english As Integer
    End Type
    Dim A As stuPrivate Sub Form_Load()
        A.name = "事实上"
        A.english = 80
    End SubPrivate Sub Command1_Click()
        Open "C:\aa.txt" For Output As 1#
            Print #1, A.name
            Print #1, A.english
        Close #1
    End Sub