2007-04-19 08:14:52| 分类: Visual Basic | 标签: |举报 |字号大中小 订阅
dim bytData() as byte
open "c:\hh.exe" for binary as #1
redim bytData(lof(1)) as byte
get #1,1,bytData
close #1
dim bytData() as byte
open "c:\hh.exe" for binary as #1
open "c:\hh_2.exe" for binary as #2
redim bytData(lof(1)) as byte
get #1,,bytData
put #2,,bytData
close #1
close #2
Put 语句
将一个变量的数据写入磁盘文件中。
Put [#]filenumber, [recnumber], varname
Get 语句
将一个已打开的磁盘文件读入一个变量之中。
Get [#]filenumber, [recnumber], varname
评论