I-Cloud程式攻略

'利用VB.net內建函數取得可用磁碟清單

'GetDrives

Imports System.IO

Module Module1

     Sub Main()

           Dim drives() as string = Directory.GetLogicalDrives()

           Console.WriteLine("可以使用的磁碟機")

           For Each s As String In drives

               Console.WriteLine(s)

           Next s

     End Sub

End Module