Evento que lea la serie del disco

En realidad el uso del objeto "FileSystemObject" no es exclusivo de
Excel o Access, si no mas bien de cualquier lenguage de programación
que tenga acceso a los ActiveX instalados en la PC. Prueba el
siguiente ejemplo donde gustes Excel, Word, Access, Powerpoint, etc.
tiene que funcionar.

Sub DesplegarNumeroSerieDiscoDuro()
Dim FSO As Object 'FileSystemObject
Dim DiscoDuro As Object 'Drive

Set FSO = CreateObject("Scripting.FileSystemObject")
Set DiscoDuro = FSO.GetDrive("c:")
'OJO: Las siguientes DOS líneas van en una sola linea de codigo
MsgBox "El número de serie del disco " & DiscoDuro.Path & " es " &
Format(DiscoDuro.SerialNumber, "# ### ### ###"), vbInformation
Set DiscoDuro = Nothing
Set FSO = Nothing

End Sub

Esto demuestra un pequeño uso del "FileSystemObject", sin embargo este
objeto puede realizar muchas otras cosas como::

- Adminstrar archivos & carpetas (crear, eliminar, renombrar, etc.)
- Recorrer directorios & archivos y por medio de un procedimiento
recurrente, se puede examinar todo el disco duro!
- Examinar unidades como cd, diskette, usb, etc.
- Crear, abrir y modificar archivos de texto
- Etc (un muy largo etcetera)

Saludos,
Marco Barboza, San Jose - Costa Rica

On Apr 12, 10:00 am, José A. Castrejón
wrote:

Hola buenos dias a todos,

Hace algun tiempo lei sobre un evento que puede leer el numero de serie del
disco duro, creo que era para Access. ¿Este evento existira para Excel ?. La
verdad no recuerdo en donde lo encontre.

Saludos

Jose Antonio castrejón