Access de Xavi

Funciones => FSO => Mensaje iniciado por: xavi en Abril 20, 2012, 12:42:21 am

Título: Número de serie del volumen
Publicado por: xavi en Abril 20, 2012, 12:42:21 am
Palabras clave: FSO, averiguar, extraer, saber, numero serie, volumen, disco
Autor: Búho desarrollando una idea de Eduardo Morcillo
Extraído de: La web del Búho

Objetivo
Extraer el número de serie del volumen  (dado al formatear) mediante FSO.

Código: [Seleccionar]
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) (http://www.llodax.com/smf/index.php?topic=42)
Número de serie del volumen (mediante API) (http://www.llodax.com/smf/index.php?topic=44)