- 追加された行はこの色です。
- 削除された行はこの色です。
RIGHT:> [[SiteArc 百科事典(エンサイクロペディア)]]
#br
#contents
#br
*ファイルの操作 [#e3df6923]
ファイルシステムにアクセスし、ファイルを操作するには、まず FileSystemObject オブジェクトを生成します。
var objFS;
objFS = webPilot.createActiveXObject("Scripting.FileSystemObject");
**テキストファイル入出力の雛形 [#ofba0683]
テキストファイルからデータを読み込んだり、テキストファイルへデータを書き込むには、OpenTextFile メソッド使用して TextStream オブジェクトを生成し、そのメソッドやプロパティを使います。
-''JavaScript、JScript の場合''(文字コードがシフトJISのケースです)
<script language="JavaScript">
var objFS, objTS1, objTS2, FileName1, FileName2, str;
objFS = webPilot.createActiveXObject("Scripting.FileSystemObject");
FileName1 = "C:\\work\\input.txt";
FileName2 = "C:\\work\\output.txt";
objTS1 = objFS.OpenTextFile(FileName1, 1);
objTS2 = objFS.OpenTextFile(FileName2, 2, -1);
while (!objTS1.AtEndOfStream) {
str = objTS1.ReadLine();
//ここに処理(変換処理など)を加える
objTS2.WriteLine(str);
}
objTS1.close();
objTS2.close();
</script>
-''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]]