Vb问题，怎样用二进制打开文件？
发布网友
共4个回答
热心网友
关键是你要保存的文件格式，text格式的文件多为顺序文件。
二进制文件的读写方式如下：
Private
Sub
Form_Click()
Dim
str
As
Integer
Open
"k:\assc.avi"
For
Binary
As
#1
'以二进制写的方式打开文件
热心网友
关键是你要保存的文件格式，text格式的文件多为顺序文件。
二进制文件的读写方式如下：
Private Sub Form_Click()
Dim str As Integer
Open "k:\assc.avi" For Binary As #1 '以二进制写的方式打开文件。
Open "k:\d.avi" For Binary As #2 '以二进制读的方式打开文件。
Do While Not EOF(2)
Get #2, , str '随机方式读文件
Put #1, , str '随机方式写文件
Loop
Close #2
Close #1
End Sub追问麻烦你写清楚好吗？
我加分。
追答open filename for binary as #1 该语句用来打开二进制文件，
可以用seek语句指向文件尾，
然后用put语句写数据就可以了。
---------------------------------------------------------------
open filename for binary as #1
put #1,len(filename)+1,bytess()
close #1
len(filename)+1：从文件尾部开始写
热心网友
&H100579C是等同于0100579C，写的时候直接用&H100579C。如果我没猜错的话，0100579C是扫雷时间的内存地址，我的写法是
ReadProcessMemory hProcess, ByVal &H100579C, ByVal VarPtr(value), 4, 0&
热心网友
我新手，求拜师
