TextClose ( 〔FileId〕 )
Dim file1 ,file2
file1 = TextOpen ( _BIN_+"Readme.txt" ,ReadOnly )
If file1 = 0 Then
MessageBox ( _BIN_+"Readme.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 )