DOBON.NET DOBON.NETプログラミング掲示板過去ログ

FD挿入確認

  • 題名: FD挿入確認
  • 著者: みち
  • 日時: 2005/03/15 11:52:36
  • ID: 9793
  • この記事の返信元:
    • (なし)
  • この記事への返信:
  • ツリーを表示
環境/言語:[WindowsXP SP1 VisualStudio2003 VB.net]
分類:[.NET]

はじめまして。.Net初心者なものです。
教えていただきたいのですが、
FDが挿入されているかどうかを
判断するにはどうしたらよいのでしょうか?
'*******************************************************************
'* DriveEnabled : FD挿入チェック *
'* 引数:ドライブ名 *
'*******************************************************************
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
の様にやってみたのですが、FDにアクセスしっぱなしになってしまい
うまくいきません。
良きアドバイスをお願いします。
こんにちは、じゃんぬねっと です。

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

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:\ がフロッピーディスクドライブとは限りませんね。
まあ、普通は問題ないと思いますけども (^^)
レスありがとうございます!
できた様ですが、やはりFDにアクセスしっぱなしになる様です・・・。
アクセスをとめる方法なんてないですよね?
仕方ないのかぁ〜。
  • 題名: Re[3]: FD挿入確認
  • 著者: みち
  • 日時: 2005/03/15 13:25:56
  • ID: 9802
  • この記事の返信元:
  • この記事への返信:
    • (なし)
  • ツリーを表示
すいません!できました。
私のマシンがおかしいみたいです。
どうもお騒がせしました!
ありがとうございました。
解決済み!

DOBON.NET | プログラミング道 | プログラミング掲示板