Метка съемного накопителья

euromax

привет скажите пожалуйста как могу узнать метку съемного накопителья с помощью кода VBA.
2 ответа

euromax

' Пример применения свойства VolumeName
Dim fso, drv, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set drv = fso.GetDrive("d:")
s = drv.VolumeName
MsgBox s
Там же есть св-ва SerialNumber, DriveType и т.д.