如何用VBS实现批处理copy /b的功能

zljzsmzzx

批处理中copy /b a+b c可以将多个文件合并成一个文件。不知道用VBS如何实现这个功能。或许同样的问题已经有人给出答案了。由于电脑还未连网，现在是用手机在上，搜索起来很麻烦，请管理员见谅。《不好意思，好象发错版块了，手机上网就是那么无奈。版主见谅。》

[ 本帖最后由 zljzsmzzx 于 2009-10-9 10:14 编辑 ]

zljzsmzzx

高手呢？问题太简单了提不起高手们的兴趣？

zqz0012005

Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
 
CopyBin "C:\boot.ini", "C:\boot.ini", "a.txt"
 
Function CopyBin(File1, File2, DestFile)
Dim ADOStrm
Set ADOStrm = CreateObject("ADODB.Stream")
ADOStrm.Type = adTypeBinary
ADOStrm.Open
ADOStrm.Write ReadBin(File1)
ADOStrm.Write ReadBin(File2)
ADOStrm.SaveToFile DestFile, adSaveCreateOverWrite
End Function
 
Function ReadBin(FileName)
Dim ADOStrm
Set ADOStrm = CreateObject("ADODB.Stream")
ADOStrm.Type = adTypeBinary
ADOStrm.Open
ADOStrm.LoadFromFile FileName
ReadBin = ADOStrm.Read
End FunctionCOPY