テキストファイルをハイパーターミナルのように出力するには？ (ID:119851)

名前

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

本文 Dim Fno As Long Dim FilePath As String Dim Buf() As Byte 'ファイルのパス FilePath = "C:\TEST.TXT" 'ファイル読み込み Fno = FreeFile Open FilePath For Binary As #Fno ReDim Buf(LOF(Fno) - 1) Get #Fno, , Buf Close #Fno 'ポート開く MSComm1.PortOpen = True '送信 MSComm1.Output = Buf 'ポート閉じる MSComm1.PortOpen = False こんなんでいいのかな？？