| スポンサードリンク |
Option Compare Database
Option Explicit
Private Sub ExTextWrite()
Dim fno As Integer
fno = FreeFile
Open "c:\test.txt" For Output As fno
Print #fno, "Access"
Print #fno, "アクセス"
Print #fno, "あくせす"
Close fno
End Sub
Private Sub コマンド0_Click()
ExTextWrite
End Sub
［実行結果］
テキストファイルへ書き込みボタンをクリックすると、 ExTextWriteを実行します。
書き込んだファイルをメモ帳で開いた画面
