【VB】PUT GET コマンドの基本コード

PUT,GETコマンドの基本的なサンプルコードです。

Option Explicit
'Test1の内容を tmp.tmp ファイルに書き込む
Private Sub cmdPUT_Click()
    Dim fno
    Dim strWORK1 As String

    Kill App.Path & "\tmp.tmp"
    strWORK1 = Text1.Text
    fno = FreeFile
    Open App.Path & "\tmp.tmp" For Binary As fno
    Put #fno, , strWORK1
    Close fno
End Sub

'tmp.tmp ファイルの内容を 読んで strWORK1のサイズ分まで入れ込んで Messageに表示する。
Private Sub cmdGET_Click()
    Dim fno
    Dim strWORK1 As String * 10

    fno = FreeFile
    Open App.Path & "\tmp.tmp" For Binary As fno
    Get #fno, , strWORK1
    Close fno
    MsgBox strWORK1
End Sub