This will send a file through a connected MSComm OCX port already opened. Call this sub whenever you need to send a file... this is good for communications.

Sub SendFile(FileNum, Frm As Form)

Dim SendStr As String

Do While Not EOF(1)

'get the line in the file and dump it into sendstr

Line Input #FileNum, SendStr

'send the line

Frm.MSComm1.Output = SendStr

Loop

End Sub

Tip Submitted By: Sean Mohney