使用可能ＣｏｍｍポートＮｏを取得するには？ (ID:85837)

名前

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

本文 コンボボックスじゃなく、リストボックスで作成してみましたが、 Dim i As Integer For i = 1 To 16 Step 1 ' 最大オープン可能ポート番号までループ MSComm1.CommPort = i ' ポートを指定 On Error Resume Next MSComm1.PortOpen = True ' ポートオープン If Err.Number = 0 Then List1.AddItem i ' エラーなかったらリストボックスに使用可能ポート番号を出力 End If Err.Clear ' エラークリア MSComm1.PortOpen = False ' ポートクローズ On Error GoTo 0 Next i 別exeでポートを使用していても使用可・不可を感知できます。 どうでしょ？