USBケーブルの脱着を認識するには？ (ID:81096)

名前

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

本文 解決致しました。 有難うございました。 以下の記述でUSBケーブルの挿入を認識できるようになりました。 システム情報コントロール(SysInfo)を追加して、以下の関数を記述することによりUSBケーブルの挿入を認識できるようになりました。 Private Sub SysInfo1_DeviceArrival(ByVal DeviceType As Long, _ ByVal DeviceID As Long, ByVal DeviceName As String, ByVal DeviceData As Long) Dim check_word As String Dim ret As Integer check_word = DeviceName '挿入されたデバイス名を取得 ret = InStr(check_word, "USB") 'デバイス名に"USB"の文字列は入っていますか？（該当されるデバイスの正式名称を入れる方がよいと思いますが。。。） If ret <> 0 Then MsgBox "USBデバイスが挿入されました。" End If End Sub 以上