GetDriveTypeを使用したいんですけど。 (ID:111528)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 お世話になります。（反応が鈍く誤って入力してしまいました↑） ソースは以下のように至ってシンプルだと思うのですが。どうですか？ Private Sub Command2_Click() 'ドライブが有れば、デフォルトパス設定 If 2 = GetDriveType("A:\") then 'フロッピードライブ file_manager_f.CommonDialog1.InitDir = "A:\" ElseIf 2 = GetDriveType("D:\") Or 5 = GetDriveType("D:\") Or 6 = GetDriveType("D:\") Then 'ＣＤドライブ,RAMディスク file_manager_f.CommonDialog1.InitDir = "D:\" ElseIf 2 = GetDriveType("D:\") Or 5 = GetDriveType("E:\") Or 6 = GetDriveType("E:\") Then 'ＣＤドライブ,RAMディスク file_manager_f.CommonDialog1.InitDir = "E:\" ElseIf 2 = GetDriveType("B:\") Then 'フロッピードライブ file_manager_f.CommonDialog1.InitDir = "B:\" Else file_manager_f.CommonDialog1.InitDir = "C:\" End If End If End Sub