CopyTo
コピー
文法
Streamオブジェクト.CopyTo(Object,Byte)
パラメータ
Object : コピー先ストリームオブジェクト
Byte : コピーするバイト数
機能説明
ストリームのデータを別のストリームにコピーします
使用例
<%
Dim objSt, objSt2
Set objSt = Server.CreateObject("ADODB.Stream")
Set objSt2 = Server.CreateObject("ADODB.Stream")
objSt.Open
objSt.LoadFromFile "D:\test\sample.html"
objSt2.Open
objSt.CopyTo(objSt2)
Response.Write "コピー元のサイズ" & objSt.Size & "
" & vbCrLf
Response.Write "コピー先のサイズ" & objSt2.Size & "
" & vbCrLf
'オブジェクトを閉じる
objSt.Close
Set objSt = Nothing
objSt2.Close
Set objSt2 = Nothing
%>
Topへ