# Re: MScomm and binarry file

Posted by 老怪 on September 10, 1998 at 00:30:09:

In Reply to: MScomm and binarry file posted by 陈铭辉 on August 28, 1998 at 13:24:18:

: 请教以MScomm control 传输一 BINARRY FILE
: 请写一传输与接收范例程式
: 非常感谢

Dim FileHandle As Integer
Dim SendBuff() As Byte
FileHandle = FreeFile
Open "YourFilePathAndName" For Binary As #FileHandle
ReDim SendBuff(LOF(FileHandle) - 1)
Get #FileHandle, , SendBuff
MSComm1.Output=SendBuff

Follow Ups: