#096 FileSystemObjectでドライブの情報を列挙する方法 VBA

FileSystemObjectオブジェクトを使って、ファイルシステムのすべてのドライブの情報を列挙するには、FileSystemObjectオブジェクトの"Drivesコレクション"および"Driveオブジェクト"を使います。

Driveオブジェクトはある一つのドライブの情報をプロパティとして持っています。またDrivesコレクションはそれらのドライブの集まりです。Drivesコレクションに属するすべてのDriveオブジェクトを調べることによって、すべてのドライブ情報を列挙することができます。
Dim Fso As Object
Dim Drv As Object

'FileSystemObjectオブジェクトを生成します
Set Fso = CreateObject("Scripting.FileSystemObject")
'Drivesコレクション内の各ドライブの情報を列挙します
For Each Drv In Fso.Drives
  With Drv
    'ドライブ名
    Debug.Print .DriveLetter,
    'ドライブの種類
    Debug.Print Choose(.DriveType, _
                        "フロッピーディスク", _
                        "ハードディスク", _
                        "ネットワークドライブ", _
                        "CD-ROM", _
                        "RAMディスク"),
    'フロッピーディスクやCD-ROMなどが準備されているか確認します
    If .IsReady Then
      'ボリューム名
      Debug.Print .VolumeName,
        'ディスク容量
      Debug.Print .TotalSize,
      '空き容量
      Debug.Print .FreeSpace,
    End If
    Debug.Print
  End With
Next Drv
※フロッピーディスクドライブやCD-ROMドライブの場合、それらの媒体を挿入しておかないとボリューム名やディスク容量などは取得できません。また、それらのプロパティを調べようとすると、媒体がなくてもドライブへのアクセスが行われます。
| Index | Prev | Next |



T'sFactory
Accessで動く生産管理DB
Ureru Express
Webで使う販売顧客管理
Access開発&アドバイス
DB開発やテクニカルアドバイス
Copyright © T'sWare All rights reserved