TextBox

TextBox讀檔功能

Private Sub Command1_Click()
On Error GoTo LOADERR
Dim INWORD As String
    Text1.Text = ""
    Open "檔案路徑" For Input As #1
        Do Until EOF(1)
            Line Input #1, INWORD
            Text1.Text = Text1.Text & INWORD & vbCrLf
        Loop
    Close #1
Exit Sub
LOADERR:
    MsgBox Err.Description, vbCritical, "讀檔失敗"
End Sub

----------------------------------------------------------------------------------------------------------------------

TextBox存檔功能

Private Sub Command1_Click()
Dim LINEIN As String
On Error GoTo OUTPUTERR
Open "檔案路徑" For Output As #1
    LINEIN = Text1.Text
    Print #1, LINEIN
Close #1
Exit Sub
OUTPUTERR:
    MsgBox Err.Description, vbCritical, "存檔失敗"
End Sub

----------------------------------------------------------------------------------------------------------------------