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

名前

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

本文 上記のままでは駄目ですね。 Call FDD.FileSystem この命令自体間違ってるので、 絶対にエラーになります。 Dim objDriveSystem As Object Dim objDrive As Object Dim strFileSystem As String On Error Resume Next Set objDriveSystem = CreateObject("Scripting.FileSystemObject") Set objDrive = objDriveSystem.GetDrive("A:\") strFileSystem = objDrive.FileSystem If Err.Number <> 0 Then ' エラー番号とエラーに関する説明を表示 MsgBox Err.Description & _ vbExclamation End If On Error GoTo 0 ' オブジェクトを解放 Set objDriveSystem = Nothing Set objDrive = Nothing こんな感じです。