ファイルを開く方法

◆概要

このページは、Visual Basic 6.0でファイルを開く方法について記載しています。


読み書きするためにファイルを開くには、ファイルシステムオブジェクトのOpenTextFile メソッドを利用します。


なお、従来のファイル入出力ステートメントを利用する場合は、Openステートメントを使います。

◆OpenTextFile メソッドを使う方法 

Private Sub Command1_Click()
    Dim objFileSystem As Object
    Dim objFile       As Object
    Dim strFileName   As String

    '読み込むファイル名
    strFileName = "D:\test\Readme.txt"
    
    'ファイルシステムオブジェクトへの参照
    Set objFileSystem = CreateObject("Scripting.FileSystemObject")

    'ファイルを開く
    Set objFile = objFileSystem.OpenTextFile(strFileName)

    'ファイルを閉じる
    objFile.Close

    'オブジェクトを開放
    Set objFileSystem = Nothing
    Set objFile = Nothing

End Sub
　　

◆従来のファイル入出力ステートメントを利用する方法 

Private Sub Command2_Click()
    Dim strFileName As String
    Dim intFileNo   As Integer

    '読み込むファイル名
    strFileName = "d:\test\Readme.txt"

    '空いているファイル番号を取得
    intFileNo = FreeFile

    'ファイルを開く
    Open strFileName For Input As intFileNo

    'ファイルを閉じる
    Close intFileNo

End Sub
　　
▼ページトップへ