ファイル関連：全ドライブを取得（IO.Directory.GetLogicalDrives）VB2008で全ドライブ名を取得する実行例サンプルです。ファイル関連へ方法1では、IO.Directory.GetLogicalDrives を使い全ドライブ名を取得します。 方法2では、Environment.GetLogicalDrives を使います。 取得したドライブ名は、For Each でループし、Items.Add でチェックリストボックスに追加します。 ■実行画面 方法1を実行したフォーム  ■実行コード Public Class Form1 '方法1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim Drv As String CheckedListBox1.Items.Clear() '論理ドライブ名をすべて取得 For Each Drv In IO.Directory.GetLogicalDrives 'チェックリストボックスに追加 CheckedListBox1.Items.Add(Drv) Next End Sub '方法2 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim Drv As String CheckedListBox1.Items.Clear() '論理ドライブの名前の配列 For Each Drv In Environment.GetLogicalDrives 'チェックリストボックスに追加 CheckedListBox1.Items.Add(Drv) Next End Sub End Class Visual Basic 2008 Express Edition実践入門 |