SetEOS
ストリームの終わりを設定
文法
Streamオブジェクト.SetEOS
機能説明
ストリームの終わりを設定
設定した位置より後は破棄されます
使用例
<%
Dim objSt, saveFile
Set objSt = Server.CreateObject("ADODB.Stream")
objSt.Open
objSt.LoadFromFile "D:\test\sample.html"
objSt.ReatText(adReadLine)
objSt.SetEOS
Response.Write "ファイルのサイズ
" & objSt.Size & vbCrLf
'オブジェクトを閉じる
objSt.Close
Set objSt = Nothing
%>
Topへ