TextWrite ( FileId , Data , 〔NewLine〕 〔, Position〕 )
Dim file1
file1 = TextOpen ( _BIN_+"Loging.txt" ,Create )
If file1 = 0 Then
MessageBox ( _BIN_+"Loging.txtのオープンに失敗" ,OK )
Else
TextWrite ( file1 ,"<< " + _COMP_ + " / " + _USER_ + " >>" )
TextWrite ( file1 , Date + " " + Time + " " ,False )
TextWrite ( file1 ,"スクリプト実行開始" )
TextClose ( file1)
End
<< COMP01 / USER01 >>
2011/08/31 11:57:22 スクリプト実行開始