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 "保存したファイルの内容<br>" & vbCrLf & objSt.ReadText 'オブジェクトを閉じる objSt.Close Set objSt = Nothing %>
Topへ