TextClose ( 〔FileId〕 )
' Loging.txtを読み込み,その内容をBackup.txtに書き込む。
Dim file1 ,file2
file1 = TextOpen ( _BIN_+"Loging.txt" ,ReadOnly )
If file1 = 0 Then
MessageBox ( _BIN_+"Loging.txtのオープンに失敗" ,OK )
Exit
End
file2 = TextOpen ( _TEMP_+"Backup.txt" ,Create )
If file2 = 0 Then
MessageBox ( _TEMP_+"Backup.txtのオープンに失敗" ,OK )
TextClose ( file1 )
Exit
End
Dim buff1
If TextRead ( file1 ,buff1 ) Then
TextWrite ( file2 ,buff1 )
End
TextClose ( file1 )
TextClose ( file2 )