VBレスキュー(花ちゃん)
VB2005用トップページへVBレスキュー(花ちゃん)のトップページVB6.0用のトップページ各掲示板

メニューへ戻ります。 ドライブ関係のメニュー
1.このコンピューター上で利用可能なドライ名を列挙する
2.ドライブの種類を取得する
3.ドライブの総容量(MB単位)・空き領域・使用領域を取得
4.指定のドライブの存在及びドライブの準備ができているかどうかを取得
5.ドライブのボリュームラベル・ファイルシステム・シリアルナンバー等を取得
6.
7.
8.
9.
10.
11.
12.
 .
20.その他、当サイト内に掲載のドライブに関するサンプル 


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 クラス 論理ディスク情報を取得



このページのトップへ移動します。