#097 フロッピーディスクが準備されているかどうか確認するには? VBA

FileSystemObjectオブジェクトの中のDriveオブジェクトの"IsReadyプロパティ"を使うと、フロッピーディスクが準備されているかどうか確認することができます。DriveTypeのIF文のところの値を変えることによって、CD-ROMの準備を確認することもできます。

サンプルプロシージャ:
Public Function IsReadyFD() As Boolean

  Dim Fso As Object
  Dim Drv As Object

  'FileSystemObjectオブジェクトを生成します
  Set Fso = CreateObject("Scripting.FileSystemObject")
  'Drivesコレクション内の各ドライブの情報を列挙します
  For Each Drv In Fso.Drives
    With Drv
      'そのドライブがフロッピーディスクかどうか調べます
      If .DriveType = 1 Then
        'フロッピーディスクが準備されているかどうかを
        '返り値に設定します
        IsReadyFD = .IsReady
        Exit For
      End If
    End With
  Next Drv

End Function

使用例:
If IsReadyFD() Then
  MsgBox "処理を開始します!", vbOKOnly + vbInformation
Else
  MsgBox "フロッピーディスクを挿入してください!", vbOKOnly + vbExclamation
End If
| Index | Prev | Next |

この情報は参考になりましたか?、問題は解決しましたか?、もしまだなら......
T'sWareのワンポイトテクニカルアドバイスをご利用ください。3000円/件〜でご支援します。
スタンドアロンからSQL Server対応まで、オーダーメイドのシステムを短納期・安価でお届けします


Copyright © T'sWare All rights reserved