COMポートを検索するには？ (ID:104621)

名前

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

本文 CreateFileを認識してくれないので何ともいえないけど Dim I_COM As Integer Dim comname As String Dim hComm As Long For I_COM = 1 To 16 comname = "COM" & I_COM hComm = CreateFile(comname, GENERIC_READ Or GENERIC_WRITE, 0, 0, OPEN_EXISTING, 0, 0) If hComm <> -1 Then List1.AddItem ("COM_" & I_COM & " OK") Else List1.AddItem ("COM_" & I_COM & " NG") End If Next