？？？在VB中如何写二进制文件（用open语句）？？？

Question

open filename for binary as fileid

Answer 1

open filename for binary as #filenumber

Answer 2

open filename for binary as #filenumber用Get,Seek,Put操作
close #filenumber

Answer 3

把文本文件内容读取TextBox：
Dim TempFile As Long
Dim LoadBytes() As ByteTempFile=FreeFile
Open 文件名 For Binary As #TempFile
Redim LoadBytes(1 To Lof(TempFile)) As Byte
Get #TempFile,,LoadBytes
Close TempFileText1.Text=StrConv(LoadBytes,vbUniCode)把TextBox内容写入文本文件：
Dim TempFile As Long
Dim SaveBytes() As ByteSaveBytes=StrConv(Text1.Text,vbFromUniCode)TempFile=FreeFile
Open 文件名 For Binary As #TempFile
Put #TempFile,,SaveBytes
Close TempFile复制文件：
Public Sub MyCopy(SFile As String, DFile As String)
    Dim TempFile As Integer
    Dim TempBytes() As Byte
    Dim FileLen As Long
    
    TempFile = FreeFile
    
    Open SFile For Binary As #TempFile
    FileLen = LOF(TempFile)
    ReDim TempBytes(1 To FileLen)
    Get #TempFile, , TempBytes
    Close #TempFile
    
    Open DFile For Binary As #TempFile
    Put #TempFile, , TempBytes
    Close #TempFile
    
End Sub