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

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


#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 \|