Write
バイナリ形式でデータ保存
文法
Streamオブジェクト.Write(Binary)
パラメータ
Binary : 書き込み対象のバイナリデータ
機能説明
バイナリデータをストリームに書き込む
使用例
<%
Dim objSt, objSt2
Set objSt = Server.CreateObject("ADODB.Stream")
Set objSt2 = Server.CreateObject("ADODB.Stream")
objSt.LoadFromFile "D:\test\sample.png"
objSt2.Write = objSt.Read
saveFile = "D:\test\sample2.png"
objSt2.SaveToFile SaveFile, adSaveCreateOverwrite
objSt2.LoadFromFile SaveFile
Response.Write ""
'オブジェクトを閉じる
objSt.Close
Set objSt = Nothing
%>
Topへ