| Dim
Drive As
String
For
Each Drive In
IO.Directory.GetLogicalDrives
ListBox1.Items.Add(Drive) Next |
メモ：Directory.GetLogicalDrivesではなくEnvironment.GetLogicalDrivesを使っても同じことができます。
メモ：リストボックスに表示するだけだったら次の１行だけでも可能です。
ListBox1.DataSource = IO.Directory.GetLogicalDrives