使用可能ＣｏｍｍポートＮｏを取得するには？

解決

2tom 2004-10-01 23:39:22 No: 85836

いつも御世話になっております。
RS-232C通信のプログラムを作成してるのですが、
現在はCommポートをComboBoxから選択するようにしているのですが、
ＰＣの使用可能なＣｏｍポート（Com1 Com2 etc）を取得する方法はあるのでしょうか。

フォレスト 2004-10-02 00:54:57 No: 85837

コンボボックスじゃなく、リストボックスで作成してみましたが、

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でポートを使用していても使用可・不可を感知できます。
どうでしょ？

岡田之仁 2004-10-02 01:03:59 No: 85838

こういうのは、如何・・・

http://madia.world.coocan.jp/cgi-bin/VBBBS2/wwwlng.cgi?print+200402/04020027.txt

デバイスとして有効なSerialPortが列挙されます。
有効か無効かは、実際にオープンできるかどうかでしか
判断できないと思いますが・・・

以上。

2tom 2004-10-04 20:37:04 No: 85839

＞フォレスト様・岡田之仁様
ありがとうございました。無事に解決致しました。
これからも、何かありましたらよろしくお願い致します。