请教怎样才能在文件复制时保持定长

[leeb]

请看下面语句：
dim buffer as string *1024
'or buffer$=string$(1024,0)
open file1 for binary #1
open file2 for binary #2
get #1,,buffer
put #2,,buffer
通过以上语句将file1复制到file2后,发现每次put到file2的字节不是1024，而是稍大于1024？请问如何才能使以上put字节数为1024。
谢谢！

[Un1]

试一下：

dim buffer() as byte
dim l as long
l = filelen(file1)

redim buffer(l-1)

open file1 for binary #1
open file2 for binary #2

get #1,,buffer
put #2,,buffer

[RealTop]

我看：应先分析一下复制后为什么出错；
可能的原因无外乎：
文件首部多字符；
文件尾部多字符；
换行符；
可以将buffer声明成Byte数组，MSDN中有例子。

[sunsetyang]

问题出在你的变量以及对应的操作上面，你读取得数据是二进制的数据，而string类型都是针对字符串处理的，它将会对0dh重新解释成0dh,0ah,因此你的二进制流就会出现这种问题。你注意看一下你的文件打开方式，这需要是二进制的打开方式。不然也会出现自动的转换。你可以用一下：ReadFile和WriteFile来进行输入输出。

[sirius]

用API:
CopyFile
再错了就是M$的不是了