#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'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved