次の方法で共有


Drives コレクション

利用可能なすべてのドライブのコレクションです。このコレクションはメンバの取得のみ可能です。

解説

リムーバブル メディア ドライブは、ドライブにメディアが挿入されていなくても Drives コレクションに含まれます。

[JScript]

次のコードは、Drives プロパティを使って Drives コレクションを取得し、Enumerator オブジェクトを使ってコレクションに繰り返し処理を行う例です。

function ShowDriveList()
{
   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 = "[ドライブの準備ができていません。]";
      s +=   n + "<br>";
   }
   return(s);
}

[VBScript]

次のコードは、Drives プロパティを使って Drives コレクションを取得し、Enumerator オブジェクトを使ってコレクションに繰り返し処理を行う例です。

    Function ShowDriveList
       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
       ShowDriveList = s
    End Function

メソッド

Drives コレクションには、メソッドはありません。

プロパティ

Count プロパティ | Item プロパティ

参照

Drive オブジェクト | Drives プロパティ | File オブジェクト | Files コレクション | Folder コレクション | Folders コレクション