¿Cómo enviar un Txt al puerto Com1 en Visual Fox?

Hola verán  he encontrado un código en esta web para abrir el Com1 y es el siguiente:

nPuerto = FOPEN("Com1",12)
IF nPuerto < 0
MESSAGEBOX('Imposible abrir el Puerto de Comunicación')
=FCLOSE(nPuerto)
RETURN .F.
ELSE
MESSAGEBOX('El COM1 esta abierto!')
gnEnd = FSEEK(nPuerto, 0, 2)
gnTop = FSEEK(nPuerto, 0)
IF gnEnd <= 0
MESSAGEBOX( 'Este archivo está vacío!')
= FCLOSE(nPuerto)&& Cierra el puerto.
Return .F.
ELSE
gcString = FGETS(nPuerto, gnEnd)
= FCLOSE(nPuerto)
WAIT WIND gcString
ENDIF
EndIf

Ahora mi pregunta es la siguiente yo en mi sistema genero un archivo de txt a la hora de hacer la factura pero necesito enviarle esos parámetros o que el puerto lea ese archivo de texto ahora que ya lo tengo abierto. Me podrían ayudar con esto por favor!

Añade tu respuesta

Haz clic para o