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

名前

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

本文 Private Sub Command2_Click() 'フラグセット Block2_Open_f = Lu_list_Btn 'ファイルを開くボタン If Check1.Value = 1 Then 'ドライブチェック 'ドライブが有れば、デフォルトパス設定 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 Else file_manager_f.CommonDialog1.InitDir = "C:\Program Files\SAGINOMIYA\KYJ\Shop_Data\" End If Call file_manager_f.file_read_command End Sub