Sürücü Harf ve Adlarını Listeleme

[Recep İpek]

Merhaba,

Aşağıdaki kod ile bilgisayarımdaki sürücü harflerini listeleyebiliyorum.S
ürücü adlarını listelemem için hangi özelliği kullanabilirim?

Ayrıca sürücülerin tüm özelliklerini gösteren kodların listesi olan biri var ise paylaşırsa sevinirim.

Harf, adı , boyutu, ağ, DVD-ROM vb...

Sub DriveList()
Dim FSO As Object
Dim Drv As Object
Set FSO = CreateObject("Scripting.FileSystemObject")
     For Each Drv In FSO.Drives
            MsgBox Drv.Path 
    Next Drv
Set FSO = Nothing
End Sub

 

[kubile]

Sn. Recep İPEK,

Halit3 arkadaşımızın paylaşmış olduğu çalışmanın linki aşağıdaki gibidir. Güzel bir çalışma olduğuna inandığım için bende linki hatırlatmak istedim.
Link :
http://www.excel.web.tr/f135/excel-makrolar-t58047.html

İyi günler dileklerimle,

 

[Recep İpek]

Dosyadakilere göre küçük bir araştırma yapınca drv.ShareName işimi gördü.

Teşekkürler.