SaveToFile
ファイルに保存
文法
Streamオブジェクト.SaveToFile FileName[,Option]
パラメータ
FileName : 保存ファイル名
Option : オプション
機能説明
ストリームのデータをファイルに保存
定数
定数 | 値 | 説明 |
adSaveCreateNotExist | 1 | ファイルがない場合新規作成 |
adSaveCreateOverwrite | 2 | ファイルがある場合上書き保存 |
使用例
<%
Dim objSt, saveFile
Set objSt = Server.CreateObject("ADODB.Stream")
objSt.Mode = adModeReadWrite
objSt.Open
'文字セットはUnicodeがデフォルトなのでShitーJISで保存する場合は下記を追加
'objSt.Charset = "Shift-JIS"
objSt.LoadFromFile "D:\test\sample.html"
objSt.WriteText = "SaveToFileテスト"
saveFile = "D:\test\sample2.html"
objSt.SaveToFile SaveFile, adSaveCreateOverwrite
objSt.LoadFromFile SaveFile
Response.Write "保存したファイルの内容
" & vbCrLf & objSt.ReadText
'オブジェクトを閉じる
objSt.Close
Set objSt = Nothing
%>
Topへ