VB6存在する論理ドライブ名をすべて取得する

スポンサーリンク

VB6 では、FileSystemObject の Drives プロパティを参照します。

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

サンプルコード

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

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

    ' 論理ドライブ名をすべて取得する
    Dim cDrives As Drives
    Set cDrives = cFso.Drives
    Dim cDrive As Drive

    ' 取得した論理ドライブ名をすべて表示する
    For Each cDrive In cDrives
        Call MsgBox(cDrive.Path)
    Next cDrive

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

関連するリファレンス

準備中です。

スポンサーリンク