标题: 如何用VBS实现批处理copy /b的功能 [打印本页]
作者: zljzsmzzx 时间: 2009-10-9 09:55 标题: 如何用VBS实现批处理copy /b的功能
批处理中copy /b a+b c可以将多个文件合并成一个文件。不知道用VBS如何实现这个功能。或许同样的问题已经有人给出答案了。由于电脑还未连网,现在是用手机在上,搜索起来很麻烦,请管理员见谅。《不好意思,好象发错版块了,手机上网就是那么无奈。版主见谅。》
[ 本帖最后由 zljzsmzzx 于 2009-10-9 10:14 编辑 ]
作者: zljzsmzzx 时间: 2009-10-10 08:38
高手呢?问题太简单了提不起高手们的兴趣?
作者: zqz0012005 时间: 2009-10-10 13:05
- 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 Function
复制代码
欢迎光临 批处理之家 (http://bathome.net./) |
Powered by Discuz! 7.2 |