用 FileSystemObject 能创建二进制文件吗？

[dinjian]

如题！谢谢！

[swans]

不能

[潜水的鱼]

up
偶没听说过~~

[DeltaCat]

FSO 不行，用 ADODB.STREAM

[DeltaCat]

TYPE = 1 为 二进制

[dinjian]

谢谢大家，我查查看！

[dinjian]

刚从网上查到一些代码，现贴上来，另外谢谢alexzhang00(三角猫(sjcatsoft))

'=============使用ADODB.Stream对象写二进制文件=====================
'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
'====================================================================

[zhfkiller]

up

[dinjian]

各们兄弟姐妹，怎么没人回复呀，就说行还是不行，是不是太简单了？我自己顶一下！