FD挿入確認

環境/言語:[WindowsXP SP1 VisualStudio2003 VB.net]
分類:[.NET]

はじめまして。.Net初心者なものです。
教えていただきたいのですが、
ＦＤが挿入されているかどうかを
判断するにはどうしたらよいのでしょうか？
'*******************************************************************
'* DriveEnabled : ＦＤ挿入チェック *
'*　引数：ドライブ名 *
'*******************************************************************
Public Function DriveEnabled(ByVal DriveLetter As String) As Boolean

Dim Target As String
Dim Ret As String

Target = VB.Left(DriveLetter, 1)
Target = Target & ":＼"

On Error GoTo ErrorHandle
Ret = Dir(Target)

On Error GoTo 0

DriveEnabled = True
Exit Function

ErrorHandle:
DriveEnabled = False
End Function
の様にやってみたのですが、ＦＤにアクセスしっぱなしになってしまい
うまくいきません。
良きアドバイスをお願いします。

こんにちは、じゃんぬねっと です。

■No9793に返信(みちさんの記事)
> ＦＤが挿入されているかどうかを
> 判断するにはどうしたらよいのでしょうか？

System.IO.Directory.Exists() メソッド を使います。
http://jeanne.wankuma.com/tips/directory/01-exists.html

    If System.IO.Directory.Exists("A:\") = False Then
        MessageBox.Show("フロッピ ディスクを挿入してくれYo!")
    Else
        MessageBox.Show("OK、挿入されているな")
    End If

ただし、A:\ がフロッピーディスクドライブとは限りませんね。
まあ、普通は問題ないと思いますけども (^^)

レスありがとうございます！
できた様ですが、やはりＦＤにアクセスしっぱなしになる様です・・・。
アクセスをとめる方法なんてないですよね？
仕方ないのかぁ〜。

すいません！できました。
私のマシンがおかしいみたいです。
どうもお騒がせしました！
ありがとうございました。