VB6最简单文件读写示例
━━━━━━━━━━━━━━━━━━━━━━━━━
Private Sub Command1_Click()    '读入文件
    Dim a As String
    Open "c:\1.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, a
        Text2.Text = Text2.Text + vbCrLf + a
    Loop
    Close #1
End Sub

Private Sub Command2_Click()    '写出文件
    Open "c:\2.txt" For Output As #1
    Print #1, Text1.Text
    Close #1
End Sub
━━━━━━━━━━━━━━━━━━━━━━━━━
Private Sub Command2_Click()    '以二进制方式读入文本文件
    Dim Bytes() As Byte
    Dim Txt As String
    Open "c:\1.txt" For Binary As #1
    ReDim Bytes(1 To LOF(1)) As Byte
    Get #1, , Bytes
    Close #1
    Txt = StrConv(Bytes, vbUnicode)
    Text1.Text = Txt
End Sub

Private Sub Command3_Click()    '以二进制方式写出文本文件
    Dim Bytes() As Byte
    Bytes = StrConv(Text1.Text, vbFromUnicode)
    Open "c:\3.txt" For Binary As #1
    Put #1, , Bytes
    Close #1
End Sub