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

名前

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

本文 MSCommの例（動作確認済） On Error Resume Next Dim I_COM As Integer For I_COM = 1 To 16 MSComm1.CommPort = I_COM MSComm1.Settings = "9600,N,8,1" MSComm1.PortOpen = True If MSComm1.PortOpen = True Then List1.AddItem ("COM_" & I_COM & " OK") Else List1.AddItem ("COM_" & I_COM & " NG") End If MSComm1.PortOpen = False Next