Function InfoHDPrincipal()
'Si quieres, cambia la funcion y mete como parametro un String con la letra
'de la unidad: C, D etc
'Buho, Junio 2003
Dim fss As Object
Dim StrMensaje As String

Set fss = CreateObject("Scripting.FileSystemObject")
StrMensaje = StrMensaje & "Path:" & fss.Drives("c").Path & vbCrLf
StrMensaje = StrMensaje & "Etiqueta del disco duro:" & fss.Drives("c").VolumeName & vbCrLf
StrMensaje = StrMensaje & "Espacio Total:" & fss.Drives("c").TotalSize & vbCrLf
StrMensaje = StrMensaje & "Número de Serie:" & fss.Drives("c").SerialNumber & vbCrLf
StrMensaje = StrMensaje & "Sistema de ficheros:" & fss.Drives("c").FileSystem & vbCrLf
StrMensaje = StrMensaje & "Espacio Disponible:" & fss.Drives("c").FreeSpace & vbCrLf
MsgBox StrMensaje, vbInformation, "Informacion de su HD principal"
Set fss = Nothing

End Function

    Source: geocities.com/es/ensolva/Descargas/Documentos

               ( geocities.com/es/ensolva/Descargas)                   ( geocities.com/es/ensolva)                   ( geocities.com/es)