求助，请问各位大虾，如何用二进制打开文件？

Question

如题，多谢指教！

Answer 1

Private Sub Command1_Click()
MsgBox openfile("c:\ff.txt")
End SubFunction openfile(filepath As String) As String
If Dir(filepath) <> "" Then
Dim buff()   As Byte, s As String, l As Long
l = FileLen(filepath)
ReDim buff(l - 1)
Open filepath For Binary As #1
Get #1, , buff
Close #1
s = StrConv(buff, vbUnicode)
openfile = s
Else
MsgBox "文件路径不存在"
Exit Function
End If
End Function

Answer 2

Open ... For Binary As #1
然后用Get读取用Put写入（似乎VB的智能提示对这个不管用）
只是读写而已，不知道楼主的打开是啥概念？

Answer 3

6.4 二进制文件　1. 打开Open "文件名" [For Binary] As #文件号2. 写操作Put [#]文件号，[位置]，变量名写入长度等于变量长度的数据。若忽略位置，表示从文件指针所指的位置写入数据，指针移动变量长度的位置3. 读操作GET [#]文件号，[位置]，变量名从指定位置开始读出长度等于变量长度的数据存入变量中，数据读出后移动变量长度位置，如果忽略位置，则表示从文件指针所指的位置开始读出数据，数据读出后移动变量长度位置。 INPUT (字节数，#文件号)返回从文件中读出的字符串。　4. SEEK函数SEEK(文件号)随机文件：返回下一个要写入或读出的记录号；二进制文件或顺序文件：返回下一个写入或读出的字节位置。 5. SEEK命令Seek [#]文件号, 位置设置下一个要写入或读出的位置。例6.6 建立一个文件名为STUDENT.DAT二进制文件。Sub Form_Click( )Dim Name As String * 10Open "Student.Dat" For Binary As #1DoNAME = InputBox("请输入学生姓名：")Put #1, , NAMEYES = InputBox("继续输入吗?(Y/N)")Loop While UCase(YES) = "Y"Close #1End Sub　例6.7 用INPUT函数读出例6.6建立的文件。Sub Form_Click()Dim Name As String * 10Open "Student.Dat" For Binary As #1Flength = Lof(1)Char = Input(Flength, #1)Print CharClose #1End Sub