Palabras clave: explorar, extraer, información, disco, red, WSH
Autor: Juan M. Afán de Ribera
Extraído de: La web del Búho
Objetivo:
Rutina que explora las unidades de disco o de red informando de sus características.
'*********** Código ***************
'
' examinarUnidades
'
' Rutina que explora las unidades de
' disco o de red informando de sus
' características.
'
' Autor: Juan M. Afán de Ribera
' Fecha: Junio 2003
'
Sub examinarUnidades()
Dim fso As Object 'New FileSystemObject
Dim drv As Object 'Drive
Set fso = CreateObject("Scripting.FileSystemObject")
For Each drv In fso.Drives
On Error Resume Next
Debug.Print "Letra unidad: " & drv.DriveLetter
Select Case drv.DriveType
Case 0: Debug.Print "- Tipo unidad: Desconocido"
Case 1: Debug.Print "- Tipo unidad: Removible"
Case 2: Debug.Print "- Tipo unidad: Fija"
Case 3: Debug.Print "- Tipo unidad: Red"
Case 4: Debug.Print "- Tipo unidad: CD-ROM"
Case 5: Debug.Print "- Tipo unidad: Disco RAM"
End Select
Debug.Print "- Sistema de archivos: " & drv.FileSystem
Debug.Print "- Espacio libre: " & Format(drv.FreeSpace, "##,###")
Debug.Print "- Preparada: " & drv.IsReady
Debug.Print "- Ruta: " & drv.Path
Debug.Print "- Directorio raiz: " & drv.RootFolder
Debug.Print "- Número de serie: " & drv.SerialNumber
Debug.Print "- Nombre recurso compartido: " & drv.ShareName
Debug.Print "- Capacidad total: " & Format(drv.TotalSize, "##,###")
Debug.Print "- Nombre volumen: " & drv.VolumeName
Next
Set fso = Nothing
End Sub
'********* Fin código *************
