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

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


#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 \|