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

zljzsmzzx

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

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

zljzsmzzx

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

zqz0012005

1. Const adTypeBinary = 1
   
2. Const adSaveCreateOverWrite = 2
   
3. 
   
4. CopyBin "C:\boot.ini", "C:\boot.ini", "a.txt"
   
5. 
   
6. Function CopyBin(File1, File2, DestFile)
   
7. Dim ADOStrm
   
8. Set ADOStrm = CreateObject("ADODB.Stream")
   
9. ADOStrm.Type = adTypeBinary
   
10. ADOStrm.Open
    
11. ADOStrm.Write ReadBin(File1)
    
12. ADOStrm.Write ReadBin(File2)
    
13. ADOStrm.SaveToFile DestFile, adSaveCreateOverWrite
    
14. End Function
    
15. 
    
16. Function ReadBin(FileName)
    
17. Dim ADOStrm
    
18. Set ADOStrm = CreateObject("ADODB.Stream")
    
19. ADOStrm.Type = adTypeBinary
    
20. ADOStrm.Open
    
21. ADOStrm.LoadFromFile FileName
    
22. ReadBin = ADOStrm.Read
    
23. End Function

复制代码