６３．ドライブ構成を取得する

＜　使用用途　＞
ドライブ構成を取得する 　

　＜　説明　＞
ＡＰＩ関数のGetLogicalDrivesを使用します
GetLogicalDrives　＝＞ドライブ構成を取得
　　＜引数＞
　　　　　なし
　　＠戻り値＠
　　　　　正常終了0以外
　　　　　ビット０はAドライブをさす
　　　　　ビット１はBドライブをさす

<　ＳＡＭＰＬＥ　＞
'標準モジュール
Public Declare Function GetLogicalDrives Lib "KERNEL32" () As Long

'ここからはフォーム内の処理です
Private Sub Command1_Click()
　　Dim Ret As Long
　　　Ret=GetLogicalDrives
End Sub