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

Question

FSO 不行，用 ADODB.STREAM

Answer 1

TYPE = 1 为 二进制

Answer 2

刚从网上查到一些代码，现贴上来，另外谢谢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
'====================================================================