Colección, de sólo lectura, de todas las unidades disponibles.

Comentarios

Las unidades de disco removibles deben tener el disco insertado para que aparezcan en la colección Drives.

[JScript]

El siguiente ejemplo muestra cómo obtener la colección Drives utilizando la propiedad Drives e itera la colección utilizando el objeto Enumerator:

[JScript]
function MostrarListaDeUnidades()
{
   var fso, s, n, e, x;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   e = new Enumerator(fso.Drives);
   s = "";
   for (; !e.atEnd(); e.moveNext())
   {
     x = e.item();
     s = s + x.DriveLetter;
     s += " - ";
     if (x.DriveType == 3)
       n = x.ShareName;
     else if (x.IsReady)
       n = x.VolumeName;
     else
       n = "[La unidad no está lista]";
     s +=  n + "<br>";
   }
   return(s);
}

[VBScript]

El siguiente ejemplo muestra cómo obtener la colección Drives e itera la colección utilizando la instrucción For Each...Next:

[VBScript]
Function MostrarListaUnidades
   Dim fso, d, dc, s, n
   Set fso = CreateObject("Scripting.FileSystemObject")
   Set dc = fso.Drives
   For Each d in dc
      n = ""
      s = s & d.DriveLetter & " - " 
      If d.DriveType = Remote Then
         n = d.ShareName
      ElseIf d.IsReady Then
         n = d.VolumeName
      End If
      s = s & n & "<BR>"
   Next
   MostrarListaUnidades = s
End Function

Métodos

La colección Drives no tiene métodos.

Propiedades

Propiedad Count | Propiedad Item

Consulte también

Objeto Drive | Propiedad Drives | Objeto File | Colección Files | Objeto Folder | Colección Folders