VB6ファイルを作成する

スポンサーリンク

VB6 では、FileSystemObject (FSO) の CreateTextFile メソッドを使用します。

FileSystemObject を使用する場合は、[プロジェクト] メニューの [参照設定] を選択して「Microsoft Scripting Runtime」にチェックを付けてください。

サンプルコード

以下にサンプルコードを示します。

VB6.0 以前
    ' 実行時エラーが発生した場合は Finally ラベルに制御を移す (確実にファイルを閉じるため)
    On Error GoTo Finally

    ' FileSystemObject (FSO) の新しいインスタンスを生成する
    Dim cFso As FileSystemObject
    Set cFso = New FileSystemObject

    ' ファイルを作成する
    Dim cTextStream As TextStream
    Set cTextStream = cFso.CreateTextFile("C:\Hoge.txt")

    ' 不要になった時点で参照を解放する (Terminate イベントを早めに起こす)
    Set cFso = Nothing

Finally:
    ' ファイルを閉じる
    If Not cTextStream Is Nothing Then
        Call cTextStream.Close
        Set cTextStream = Nothing
    End If

関連するリファレンス

準備中です。

スポンサーリンク