Recorrido por la colección de unidades en ASP

En el capítulo en el que hablamos del File System Object (FSO) comentamos la existencia de una propiedad que contiene un array con todas las unidades disponibles en la máquina servidor. Cada uno de los elementos del array era un objeto unidad, de los que vimos en el capítulo anterior.

En este ejemplo vamos a hacer un recorrido a la colección de unidades para mostrar algunas de las propiedades de cada una de las unidades del array.

El código es el siguiente.

<%
'Conecto con el sistema de archivos
set FSO = server.createObject("Scripting.FileSystemObject")
'obtengo la coleccion de unidades
set Unidades = FSO.Drives

'para cada unidad
for each unidad in unidades
    'imprimo su letra
    response.write "Unidad " & unidad.driveLetter

    'si la unidad esta disponible
    if unidad.isReady then
       'imprimo el espacio que tiene libre para nuestro uso
       response.write ", espacio disponible: " & unidad.availableSpace
       'imprimo el espacio total
       response.write ", espacio Total: " & unidad.totalSize
    else
       'informo que la unidad no esta disponible
       response.write ", no disponible en este momento"
    end if
    response.write "<br>"
next
%>

El ejemplo está comentado ligeramente en el propio código, aunque veremos alguna explicación adicional.

La primera instrucción se hace para crear el objeto FSO, luego extraemos la colección de unidades de la propiedad Drives de dicho objeto.

Luego se realiza un recorrido del array con una estructura FOR EACH, que se encargará de iterar con cada una de las unidades del array, desde el principio al fin.

Para cada unidad se imprime su letra y se comprueba si está preparada o no mediante la propiedad IsReady. Si estaba preparada se imprimen los espacios disponibles y totales de la unidad. Si no estaba preparada, se imprime un mensaje que lo indica.