使用可能なドライブを得るには

＜２進数への変換＞

宣 言


(Private) Declare Function GetLogicalDrives Lib "KERNEL32" () As Long
※Privateは必要に応じて削除またはPublicに変更

備 考

GetLogicalDrivesで得られた値を２進数に変換すると、
「1011001・・・・」
という風になります。これはＡ，Ｃ，Ｄ，Ｇドライブが使用可能という事を表しています。

サ ン プ ル プ ロ グ ラ ム

まず、ＶｉｓｕａｌＢａｓｉｃを起動してプロジェクトを新しく作成してください。まず、次のコードを貼り付け実行してください。メッセージを表示して終了します。

動作確認：Visual Basic 5.0(Visual Basic 4.0でも問題なく動作するはずです),Windows98

Private Declare Function GetLogicalDrives Lib "KERNEL32" () As Long

Private Sub Form_Load()
Dim Ret As Long
Dim i As Long
Dim Drv As Long
Dim Msg As String

Ret = GetLogicalDrives

'２進数に変換
Do
If Ret Mod 2 = 1 Then
Drv = Drv + "1"
Else
Drv = Drv + "0"
End If
Ret = Int(Ret / 2)
Loop Until Ret = 0

For i = 1 To Len(Drv)
Msg = Msg + Chr(i + 64) + ":" + Mid(Drv, i, 1) + Chr(13)
Next

MsgBox Msg
End
End Sub

これと同様の動作をするGetLogicalDriveStringsというＡＰＩがあります。こちらは返り値が文字列です。

トップに戻る
Visual Basicワンポイントテクニック目次に戻る

Gポイントポイ活　Amazon Yahoo 楽天

無料ホームページ 楽天モバイル[UNLIMITが今なら1円] 海外格安航空券 海外旅行保険が無料！