ドライブリストを取得する例034

 Sub Main（）
        'listDrivers（）
        ListDrivers1（）

        Console.Read（）
    End Sub

「方法1

Private Sub listDrivers（）
        Dim dCount As Integer
        dCount = My.Computer.FileSystem.Drives.Count
        Dim strDrive（dCount-1）As String
        For i = 0 To dCount-1
            strDrive（i）= My.Computer.FileSystem.Drives。 Item（i）.Name
            Console.WriteLine（strDrive（i））
        Next
    End Sub
   

'メソッド二
    Private Sub ListDrivers1（）
        Dim tmpInfo（）As String
        For Each temp As DriveInfo In DriveInfo.GetDrives
            Console.WriteLine（temp.Name）
        Next
        Console.Read（）
    End Sub