VB中如何复制二进制文件?

Question

试试下面的代码：
dim tmp() as byte
open 源文件 for binary as 1
redim tmp(lof(1)) as byte
get 1,1,tmp
close 1
open 目标文件 for binary as 1
put 1,1,tmp
close 1

Answer 1

用Get与Put确实可以很轻松的完成
但我觉得你用API函数可以一次性完成
BOOL CopyFile(  源文件名，目标文件名, 第三参数);
 第三参数为true 当复制时如目标文件已存在，则不复制
 第三参数为false,当复制时如目标文件已存在，则复制覆盖

Answer 2

哈哈哈，不如就用VB自带的copy命令吧：）
不一样可以复制了吗。用得着这般复杂吗？