ole控件dragdrop函数
dim i,s() as byte
for i = 1 to Data.count
open Data.Files(i) for Binary as #1
Get #1,,s()
redim s(lof(1)+补充字节长度) as byte
close #1
加字符处理
open Data.Files(i) for Binary as #2
Put #2,,s
close #2
next i 作者: 禾西 时间: 2011-11-21 17:38
RM就可以了O O
File.size("xxxx")
然後你想填啥就 puts 吧= =作者: 赛露休斯 时间: 2011-11-21 18:12 本帖最后由 赛露休斯 于 2011-11-21 18:49 编辑