フロッピーの有無確認について (ID:106848)

名前

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

本文 スマートではありませんが、こんなのはどうでしょう？ Dim FSO As Object Dim FDD As Object On Error Resume Next Set FSO = CreateObject("Scripting.FileSystemObject") Set FDD = FSO.GetDrive("A:") ' FDDがAドライブだと仮定してます Err.Clear Call FDD.FileSystem ' 71がディスクがないときのエラー番号のようです（未確認） If Err.Number <> 0 Then MsgBox "Error" End If Set FDD = Nothing Set FSO = Nothing もっとスマートなやり方があるのでしょうけど。