- 追加された行はこの色です。
- 削除された行はこの色です。
RIGHT:> [[SiteArc 百科事典(エンサイクロペディア)]]
#br
#contents
#br
*ファイルの操作 [#e3df6923]
**ファイルへデータを書き込む [#sd3ee213]
ファイルシステムにアクセスし、ファイルを操作するには、まず FileSystemObject オブジェクトを生成します。
var objFS;
objFS = webPilot.createActiveXObject("Scripting.FileSystemObject");
**テキストファイル入出力の雛形 [#ofba0683]
テキストファイルからデータを読み込んだり、テキストファイルへデータを書き込むには、OpenTextFile メソッド使用して TextStream オブジェクトを生成し、そのメソッドやプロパティを使います。
-''VBScript の場合''(文字コードがシフトJISのケースです)
<script language="VBScript">
Dim objFS, objTS1, objTS2, FileName1, FileName2, str
set objFS = webPilot.createActiveXObject("Scripting.FileSystemObject")
FileName1 = "C:\work\input.txt"
FileName2 = "C:\work\output.txt"
set objTS1 = objFS.OpenTextFile(FileName1, 1)
set objTS2 = objFS.OpenTextFile(FileName2, 2, true)
Do until objTS1.AtEndOfStream
str = objTS1.ReadLine
//ここに処理(変換処理など)を加える
objTS2.WriteLine str
Loop
objTS1.close
objTS2.close
</script>
**ファイルをコピーする [#u0dc7027]
ファイルをコピーするには、CopyFile メソッドを使用します。
var objFS;
objFS = webPilot.createActiveXObject("Scripting.FileSystemObject");
var theDay = (new Date()).getDay(); //今日の曜日を取得する
var SundayFile = "\\data\\Sunday.txt";
var OtherDayFile = "\\data\\OtherDayFile.txt";
var processFile = "\\work\\process.txt";
if (theDay == 0) { //今日が日曜日だったら
objFS.CopyFile(SundayFile, processFile);
}
else {
objFS.CopyFile(OtherDayFile, processFile);
}
**ファイルを削除する [#m5dffda1]
ファイルを削除するときは、削除しようとするファイルが存在するかチェックを行い、存在するときのみに DeleteFile メソッドで削除するようにします。
var objFS;
objFS = webPilot.createActiveXObject("Scripting.FileSystemObject");
var FileName = "\\work\\temp.txt";
if (objFS.FileExists(FileName) != 0) {
objFS.DeleteFile(FileName);
}
&color(black,#66CDAA){'' 参照 ''};~
[[ダウンロードファイルの全世代削除>FAQ(SiteArc)#r05d2617]]