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

ソースコード
[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」で確認しております。環境が異なる場合は正常に動作しない場合もございますのでご了承下さい。
スポンサーリンク
関連記事
前の記事: | ディスクの容量と空き容量を取得する |
次の記事: | 「FDをフォーマット」ダイアログを表示する |
公開日:2015年03月04日
記事NO:00333
この記事を書いた人
![]() | 💻 ITスキル・経験 サーバー構築からWebアプリケーション開発。IoTをはじめとする電子工作、ロボット、人工知能やスマホ/OSアプリまで分野問わず経験。 画像処理/音声処理/アニメーション、3Dゲーム、会計ソフト、PDF作成/編集、逆アセンブラ、EXE/DLLファイルの書き換えなどのアプリを公開。詳しくは自己紹介へ |
プチモンテ代表、アーティスト名:プチモンテ | |
🎵 音楽制作 BGMは楽器(音源)さえあれば、何でも制作可能。歌モノは主にロック、バラード、ポップスを制作。歌詞は叙情詩、叙情的な楽曲が多い。楽曲制作は2023年12月中旬 ~ |
オリジナル曲を始めました✨
YouTubeで各楽曲を公開しています🌈
https://www.youtube.com/@petitmonte