Aドライブの確認

質問

いつもお世話になっています。

　質問ですが、Aドライブにフロッピーが入っているかどうかを確認する方法なのですが、

　On error resum next

if len(dir("A:\a.txt")) = 0 then
msgbox "Error"
end if

としたのですがエラーが発生して次に進まないのです。

Aドライブにフロッピーが入っているかどうかを確認する方法を教えていただきたいです。

回答No.2

maruru01

こんにちは。maruru01です。

ファイルシステムオブジェクトを利用してはどうでしょうか。

Dim myFSO As Object
Dim myDrive As Object
Dim filePath As String

filePath = "A:\a.txt"

Set myFSO = CreateObject("Scripting.FileSystemObject")
Set myDrive = myFSO.GetDrive(myFSO.GetDriveName(filePath))
If Not myDrive.IsReady Then
　　MsgBox "ドライブの準備が出来ていません。"
End If
Set myDrive = Nothing
Set myFSO = Nothing

MSDNの関連ページを載せておきます。

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/jsproisready.asp

参考URL：

http://www.microsoft.com/japan/msdn/library/default.asp?url=/japan/msdn/library/ja/script56/html/jsproisready.asp

お礼

ありがとうございます。こんなやりかたもあるのですね。
参考にさせていただきます。(*^^*)

回答No.1

momoturbo

VB6の場合、guruguru2さんのサンプルで動きましたけど・・

しいていえば、resum→resume
MsgBoxが表示されますけど・・

Private Sub Command1_Click()
On Error Resume Next

If Len(Dir("A:\a.txt")) = 0 Then
MsgBox "Error"
End If

End Sub

お礼

ありがとうございます。
実はいまさらながらカテゴリまちがえていて、しかも
全然詳しいことを書かなかったのをお許しください。
Excel95のＶＢＡでの実行だったのですが、Excel９７で実行したので、９５のみで実行せず…？ということで解決しました。本当にありがとうございます！！