プログラムリスト「ファイル操作プログラム例」

Private Sub Command1_Click()

    Open "z:\69918\write.txt" For Output As #1
    'write #ステートメント
        Text1.text = Text1.text
        Write #1, Text1.text
    Close #1
    
End Sub

Private Sub Command2_Click()

    Dim text As String
    Open "z:\69918\write.txt" For Input As #1
    Do While Not EOF(1)
        Input #1, text
        Print text
    Loop
    
    Close #1
    
End Sub

Private Sub Command3_Click()
    Form1.Cls
End Sub

Private Sub Command4_Click()
    End
End Sub

Private Sub Command5_Click()

     Open "z:\69918\print.txt" For Output As #1
     'print #ステートメント
        Text1.text = Text1.text
        Print #1, Text1
     Close #1
     
End Sub

Private Sub Command6_Click()

    Dim text As String
    Open "z:\69918\print.txt" For Input As #1
    Do While Not EOF(1)   'ファイルの最後まで読み込む
        Line Input #1, text
        Print text
    Loop
    
    Close #1
    
End Sub

Private Sub Command7_Click()

   Open "z:\69918\print.txt" For Append As #1
        Text1.text = Text1.text
        Print #1, Text1
   Close #1
   
End Sub