Nombre del volumen de una unidad

Hola Grupo...

¿ Como puedo obtener el nombre
del volumen del disco duro,
diskette, Unidad Zip, etc. ?

Con esta rutina, obtengo el tipo
de unidad. Yo uso un "MicroVault
de Sony de 256 Mb" vía puerto
USB, para generar respaldos diarios.

Actualmente lo hago a "mano", pero
quiero automatizarlo.

Con la siguiente rutina obtengo los
tipo de unidad que existen en mi computadora
( El MicroVault, lo detecta como tipo 2=Disquete)

*********************************
Local ln,lnTipo

For ln = 65 To 92

lnTipo = DriveType(Chr(ln))
Do Case
Case lnTipo = 1
* Ningún tipo
Case lnTipo = 2
ThisForm.MisUnidades.AddItem(Chr(ln)+":Disquete")
Case lnTipo = 3
ThisForm.MisUnidades.AddItem(Chr(ln)+":Disco Duro")
Case lnTipo = 4
ThisForm.MisUnidades.AddItem(Chr(ln)+":Unidad de red o Unidad
Extraíble")
Case lnTipo = 5
ThisForm.MisUnidades.AddItem(Chr(ln)+":CD-Rom")
Case lnTipo = 6
ThisForm.MisUnidades.AddItem(Chr(ln)+":CD-Ram")
EndCase
EndFor
**************************************

Por la antención, de antemano muchas gracias.

Saludos.
Mario Bucio
Uruapan, Michoacán, México