使用ADODB.Stream对象写二进制文件
2007-04-19 14:12
489 查看
Function SaveBinaryData()Function SaveBinaryData(FileName, ByteArray)
Const adTypeBinary = 1
Const adSaveCreateOverWrite = 2
'Create Stream object
Dim BinaryStream
Set BinaryStream = CreateObject("ADODB.Stream")
'Specify stream type - we want To save binary data.
BinaryStream.Type = adTypeBinary
'Open the stream And write binary data To the object
BinaryStream.Open
BinaryStream.Write ByteArray
'Save binary data To disk
BinaryStream.SaveToFile FileName, adSaveCreateOverWrite
End Function
相关文章推荐
- 解决IE在客户端使用ADODB.Stream不能创建对象成功的方法
- 使用ADODB.Stream对象写文本文件
- 使用ADODB.Stream对象读二进制文件
- 使用ADODB.Stream对象读文本文件
- 如何在 Internet Explorer 中禁用和使用 ADODB.Stream 对象
- 关于Adodb.Stream 的使用说明
- 如何在 Internet Explorer 中禁用 ADODB.Stream 对象
- IE下使用ADODB.Stream实现断点续传
- Asp ADODB.Stream对象的方法属性
- 利用AdoDb.Stream对象来读取UTF-8格式的文本文件
- 一段精简的使用 ADODB.Stream 读写"大字段"的 VB 代码!
- Stream、WshShell、WshUrlShortcut对象及Shell.Application的参数与使用
- ADODB.Stream 对象的禁用和启用
- stringstream对象的使用
- VBS之adodb.stream对象的方法/属性
- 一段精简的使用 ADODB.Stream 读写"大字段"的 VB 代码
- 关于Adodb.Stream 的使用说明
- VB 6.0 使用ADODB对象
- Adodb.Stream是ADO的Stream对象,提供存取二进制数据或者文本流,从而实现对流的读、写和管理等操作.
- ADODB.STREAM使用说明