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

名前

ホームページ(ブログ、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 & "\" Msgbox FDドライブ名 Exit Sub End If Next Drv Msgbox "ＦＤＤは、ＮＯＴＨＩＮＧ！" 間違ってたらすみません。僕も初心者ですから。^_^?