'*********** 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 *************

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

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