Close

開いているTextStreamファイルを閉じます。

構文
TextStream.Close
引数
戻値

プログラム実行例

一時ファイルを作成・削除

CONST TemporaryFolder = 2

DIM FSO = CREATEOLEOBJ("Scripting.FileSystemObject")
DIM Folder = FSO.GetSpecialFolder(TemporaryFolder)
DIM path = Folder.Path
DIM name = FSO.GetTempName
path = FSO.BuildPath(path, name)

PRINT path

DIM TextStream = FSO.CreateTextFile(path)
// 現在の日時をファイルに書き込む
TextStream.WriteLine(now())
TextStream.Close

// Tempファイルを削除
// FSO.DeleteFile(path)

FUNCTION now()
	GETTIME()
	RESULT = G_TIME_YY4 + "/" + G_TIME_MM2 + "/" + G_TIME_DD2 + " " + G_TIME_HH2 + ":" + G_TIME_NN2
FEND
  1. script.function.CREATEOLEOBJ(3)
  2. com.FSO.GetSpecialFolder(4)
  3. com.FSO.Folder.Path(5)
  4. com.FSO.GetTempName(6)
  5. com.FSO.BuildPath(7)
  6. com.FSO.CreateTextFile(11)
  7. com.FSO.TextStream(11)
  8. com.FSO.TextStream.WriteLine(13)
  9. com.FSO.TextStream.Close(14)
  10. com.FSO.DeleteFile(17)
結果
D:\TMP\rad83BB3.tmp