ホーム > カテゴリ > Visual Basic >

ドライブの種類を取得する

ドライブの種類を取得するサンプルです。

サンプルの実行画面

ソースコード

[GetDriveType.frm]

'GetDriveType =>ドライブのタイプを取得

'<引数>
'nDrive:ドライブを指定

'@戻り値@
'0   未知
'1   存在しない
'2   フロッピーディスク
'3   ハードディスク
'4   ネットワークドライブ
'5   CD-ROM
'6   RAMディスク


Private Declare Function GetDriveType Lib "KERNEL32" Alias "GetDriveTypeA" (ByVal nDrive As String) As Long

Private Sub Drive1_Change()

Dim Ret As Long

 Ret = GetDriveType(Drive1.Drive & "\")

  Select Case Ret
  
         Case 0
            MsgBox Drive1.Drive & "\" & "は未知です"
         Case 1
           MsgBox Drive1.Drive & "\" & "は存在しません"
         Case 2
           MsgBox Drive1.Drive & "\" & "はフロッピーディスクです"
         Case 3
             MsgBox Drive1.Drive & "\" & "はハードディスクです"
         Case 4
             MsgBox Drive1.Drive & "\" & "はネットワークドライブです"
         Case 5
             MsgBox Drive1.Drive & "\" & "はCD-ROMです"
         Case 6
             MsgBox Drive1.Drive & "\" & "はRAMディスクです"
  End Select

End Sub

ソースコード一式のダウンロード

vbapi_getdrivetype.zip 868 バイト (868 バイト)

このサンプルの動作環境について

このサンプルは 「Windows98」及び「Microsoft Visual Basic 5.0 Professional Edition」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。





関連記事



公開日:2015年03月04日
記事NO:00333


この記事を書いた人

💻 ITスキル・経験
サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。

画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ
プチモンテ代表、アーティスト名:プチモンテ
🎵 音楽制作
BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ~

オリジナル曲を始めました✨

YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte

【男性ボーカル】DA・KA・RA | 新たな明日が風と共に訪れる

【男性、女性ボーカル】時空を超越する先に | 時空と風の交響曲

【女性、男性ボーカル】絆 | 穏やかな心に奏でる旋律