戻る

テキストファイルの読み書き

目的

テキストボックスの内容をファイルに保存する。 ファイルの内容をテキストボックスに読みこむ。

ポイント

Open ステートメントでファイルを開き、読み書きする。

サンプルコード

Option Explicit Private Sub cmdOpen_Click() ' テキストを読みこむ     Dim fn As Integer     fn = FreeFile          Open "C:\My Documents\Sample.txt" For Input As #fn     txtSample.Text = StrConv(InputB(LOF(1), #fn), vbUnicode)     Close #fn      End Sub Private Sub cmdSave_Click() ' テキストを保存する     Dim fn As Integer     fn = FreeFile          Open "C:\My Documents\Sample.txt" For Output As #fn     Print #fn, txtSample.Text     Close #fn End Sub

ソースのダウンロード