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

名前

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

本文 ＦＤドライブが分かればいいんですか？ Dim Fso As Object Set Fso = CreateObject("Scripting.FileSystemObject") For Each Drv In Fso.Drives If Drv.DriveType = 1 Then '1 FDドライブ名 = Drv.Path & "\" If irero = vbNo Then Set Fso = Nothing Exit Sub End If GoTo メディア Else Exit For End If '2 Else MsgBox "フロッピードライブが見つかりませんでした。" _ & Chr(13) & "よって、現在のPC環境では電子印鑑は作成できません。" _ & Chr(13) & "処理を中止します。", vbExclamation Set Fso = Nothing Exit Sub End If '1 Next Drv