4.指定のドライブの存在及びドライブの準備ができているかどうかを取得(29_Drv_04) (旧、SampleNo.039) |
1.指定のドライブが存在するかどうかを取得する(2方法) 2.指定のドライブの準備ができているかどうかを取得する 3. 4. 5. 6. |
下記プログラムコードに関する補足・注意事項 動作確認:Windows 8.1 (Windows 7) / VB2013 (VB2010) / Framework 4.5.1 / 対象の CPU:x86 Option :[Compare Text] [Explicit On] [Infer On] [Strict On] Imports : 参照設定: 参照設定方法の参照 その他 : : このサンプル等の内容を無断で転載、掲載、配布する事はお断りします。(私の修正・改訂・削除等が及ばなくなるので) 必要ならリンクをはるようにして下さい。(引用の場合は引用元のリンクを明記して下さい) |
1.指定のドライブが存在するかどうかを取得する |
Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click '指定のドライブが存在するかどうかを調べる Dim driveName As String = ComboBox1.SelectedItem.ToString '論理ドライブの名の一覧を取得 Dim drives As String = String.Join(",", Environment.GetLogicalDrives()) If drives.IndexOf(driveName, StringComparison.CurrentCultureIgnoreCase) >= 0 Then MessageBox.Show(driveName & " ドライブは存在します。") Else MessageBox.Show(driveName & " ドライブは存在しません。") End If End Sub '1.2.サンプル共通事項 Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load For i As Integer = 65 To 73 'A〜Hドライブまでを調査 ComboBox1.Items.Add(Chr(i) & ":\") ComboBox2.Items.Add(Chr(i) & ":\") Next i ComboBox1.Text = "A:\" ComboBox2.Text = "A:\" End Sub |
2.指定のドライブの準備ができているかどうかを取得する(2方法) |
Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click '指定のドライブの準備ができているかどうかを取得する(2方法) Dim Drive As System.IO.DriveInfo = New System.IO.DriveInfo(ComboBox2.SelectedItem.ToString) If Drive.IsReady = False Then MessageBox.Show(Drive.Name & " ドライブは準備ができていません") Else MessageBox.Show(Drive.Name & " ドライブは準備ができています。") End If If System.IO.Directory.Exists(Drive.Name) = False Then MessageBox.Show(Drive.Name & " ドライブは準備ができていません") Else MessageBox.Show(Drive.Name & " ドライブは準備ができています。") End If End Sub |
3. |
4. |
5. |
6. |
検索キーワード及びサンプルコードの別名(機能名) |
ドライブ Drive GetDrives メソッド Directory.GetLogicalDrives メソッド FileSystemProxy.Drives
プロパティ Environment.GetLogicalDrives メソッド WMIの Win32_LogicalDisk クラス 論理ディスク情報を取得 |