Open Filename [for Binary] [Access Read <Access Read> <Access Write/Read>][Loack Read/Lock Write/Lock Write/read] As $filenumber
打错了 #filenumber,比如 #1 for 为文件打开方式,for input,for output,for append,for binary,for random 前三种是文本方式,Randon是随机文件 Access 当 for binary,for random时的文件打开方式,读,写,读/写Lock是文件共享As 文件号 1~255 ,程序可以打开多个文件,也可以多次打开一个文件,文件号不同
Open filename For Binary As #1'打开 x = Input(LOF(1), 1) '读入 Close #m
open 文件 for binary as 文件号 读数据用get 写数据用put 最后close文件号
'例子:把D:\photo.jpg读出然后写(复制)到 c:\photo.jpgPrivate Sub Command1_Click() Dim BB() As Byte, LL As LongOpen "D:\photo.jpg" For Binary As #1 Open "c:\photo.jpg" For Binary As #2 LL = LOF(1) ReDim BB(LL - 1) Get #1, 1, BB() '从文件1的1处开始读取数据到字节数组bb中
我正准备编一个程序分析文件格式也可能用到这种方式打开文件
#filenumber,比如 #1
for 为文件打开方式,for input,for output,for append,for binary,for random
前三种是文本方式,Randon是随机文件
Access 当 for binary,for random时的文件打开方式,读,写,读/写Lock是文件共享As 文件号 1~255 ,程序可以打开多个文件,也可以多次打开一个文件,文件号不同
x = Input(LOF(1), 1) '读入
Close #m
读数据用get
写数据用put
最后close文件号
Dim BB() As Byte, LL As LongOpen "D:\photo.jpg" For Binary As #1
Open "c:\photo.jpg" For Binary As #2 LL = LOF(1)
ReDim BB(LL - 1)
Get #1, 1, BB() '从文件1的1处开始读取数据到字节数组bb中
Put #2, 1, BB() '把字节数组bb中的内容从文件2的1字节处写入.
Close '关闭所有打开的文件.End Sub