请教文件内容复制问题!

Question

Private Sub Command1_Click()
    Dim filenum
    filenum = FreeFile
    Open "c:\2.gif" For Binary Access Write As #filenum
    Set dr = CreateObject("ADODB.Stream")
    dr.Mode = 3
    dr.Type = 1
    dr.Open
    dr.LoadFromFile "c:\1.gif"
    Put #filenum, 1, dr.Read
    Close #filenum
    dr.Close
    Set dr = Nothing
End Sub
问题是生成的2.gif文件比1.gif大。文件头多了点数据，其他部分一样。我的目标是要生成的2.gif和1.gif要一样。请问如何解决那？

Answer 1

这个adodb.stream二进制内容本来就是不一样的===============================
    CSDN小助手 是一款脱离浏览器也可以使用csdn论坛的
软件！
    界面： http://qqwwee.com/
    下载： http://qqwwee.com/csdn.rar 包含源代码

Answer 2

哪如何解决那？问题是我这里一定要adodb.stream读取文件。用adodb.stream再savetofile出来自然一样。不过如果把好几个文件合并起来用adodb.stream效率不高。

Answer 3

看过了，是多了几个字节，删除没用的试试===============================
    CSDN小助手 是一款脱离浏览器也可以使用csdn论坛的
软件！
    界面： http://qqwwee.com/
    下载： http://qqwwee.com/csdn.rar 包含源代码

Answer 4

我用rightB函数截取后面部分不行。

Answer 5

Sub dddd()
    Dim filenum
    filenum = FreeFile
    Dim a() As Byte
    Open "c:\2.gif" For Binary Access Write As #filenum
    Dim dr As ADODB.Stream
    Set dr = CreateObject("ADODB.Stream")
    dr.Mode = adModeReadWrite
    dr.Open
    dr.Type = adTypeBinary
      dr.Flush
    dr.LoadFromFile "c:\1.gif"
    ReDim a(dr.Size - 1)
    dr.Position = 0
    a = dr.Read
    Put #filenum, 1, a 'dr.Read(dr.Size - dr.Position)
    Close #filenum
    dr.Close
    Set dr = Nothing
End Sub===============================
    CSDN小助手 是一款脱离浏览器也可以使用csdn论坛的
软件！
    界面： http://qqwwee.com/
    下载： http://qqwwee.com/csdn.rar 包含源代码

Answer 6

估计是vb ado自动分配内存所致，并不一定是你指定的文件大小，就像一个文件虽然只有4k,但可能占用硬盘空间5K一样,如果用他本身的方法进行savetofile一样，那就没事，如果你像ghost一样，就是整个硬盘拷了，空的也包在内了.===============================
    CSDN小助手 是一款脱离浏览器也可以使用csdn论坛的
软件！
    界面： http://qqwwee.com/
    下载： http://qqwwee.com/csdn.rar 包含源代码

Answer 7

你的答案可以解决我的问题了。谢谢
我在这里结帖的时候出现500错误。
我已经新开帖子，请你接一下分好吗。十分感谢你的指导。还有你的csdn脱离浏览器，我下载了，暂时没看。
我在网站信息采集方面（人家防盗连，验证码）弄过段时间，希望能在这方面探讨一下。
我的qq是：20525769。