次の方法で共有


Drives プロパティ

ローカル コンピューターで使用できるすべての Drive オブジェクトで構成される Drive コレクションを返します。

構文

オブジェクトドライブ

オブジェクトは常に FileSystemObject です

注釈

Drives コレクションには、メディアが挿入されていない場合でも、リムーバブル メディア ドライブが表示されます。

For Each..を使用して 、ドライブ コレクションのメンバーを反復処理できます 。次 のコードに示すように、次のコンストラクト。

Sub ShowDriveList
    Dim fs, d, dc, s, n
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set dc = fs.Drives
    For Each d in dc
        s = s & d.DriveLetter & " - " 
        If d.DriveType = 3 Then
            n = d.ShareName
        Else
            n = d.VolumeName
        End If
        s = s & n & vbCrLf
    Next
    MsgBox s
End Sub

関連項目

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。