Palabras clave:
FSO, averiguar, extraer, saber, numero serie, volumen, discoAutor:
Búho desarrollando una idea de Eduardo MorcilloExtraído de:
La web del Búho
Objetivo Extraer el número de serie del volumen (dado al formatear) mediante FSO.
Dim FileWsh As Object
Set FileWsh = CreateObject("Scripting.FileSystemObject")
MsgBox "Número de Serie del Volumen en Hexadecimal: " & Hex$( _
FileWsh.Drives("C").SerialNumber)
MsgBox "Número de Serie del Volumen en decimal: " & FileWsh.Drives( _
"C").SerialNumber
Set FileWsh = Nothing
Te puede interesar....
Número de serie del volumen (mediante WMI)Número de serie del volumen (mediante API)
