VB6その他の特殊ディレクトリまでのパスを取得する

スポンサーリンク

VB6 では、FileSystemObject の GetSpecialFolder メソッドを使用します。

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

サンプルコード

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

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

    ' Windows ディレクトリ
    Dim cWindowsFolder As Folder
    Set cWindowsFolder = cFso.GetSpecialFolder(WindowsFolder)
    Call MsgBox(cWindowsFolder.Path)

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

    ' System ディレクトリ
    Dim cSystemFolder As Folder
    Set cSystemFolder = cFso.GetSpecialFolder(SystemFolder)
    Call MsgBox(cSystemFolder.Path)

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

    ' 一時ディレクトリ
    Dim cTempFolder As Folder
    Set cTempFolder = cFso.GetSpecialFolder(TemporaryFolder)
    Call MsgBox(cTempFolder.Path)

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

関連するリファレンス

準備中です。

スポンサーリンク