TextOpen ( FilePath 〔, Mode〕 )
値 | 意味 |
---|---|
Create | ファイルを無条件に作成 |
ReadOnly | ファイルを読み込みモードでオープン |
WriteOnly | ファイルを書き込みモードでオープン |
ReadWrite | ファイルを読み書きモードでオープン |
' Loging.txtを読み込み,その内容をダイアログボックスに表示する。
Dim file1
file1 = TextOpen ( _BIN_+"Loging.txt" ,ReadOnly )
If file1 = 0 Then
MessageBox ( _BIN_+"Loging.txtのオープンに失敗" ,OK )
Else
Dim buff1
If TextRead ( file1 ,buff1 ) Then
MessageBox ( buff1,OK )
End
TextClose ( file1 )
End