open two text files in one app 2

[tmangin]

Hi,
I need to open a text file for Input, then open another text file to write output to. Is this possible in a single VB app (.exe)? Below is a sample of what I have right now, however, I'm having problems with it.

Public Sub Form_Load()
Open "C:\iFtpSvc\Hms-ftppro\users\RCI27\RCI27.txt" For Input As 1 'Opens The File And Names It #1
Call PrintReport
End Sub

Public Sub PrintReport()
Open "C:\iFtpSvc\Hms-ftppro\users\RCI27\Report.txt" For Output As 1
Print #1, "WE RECEIVED THE FOLLOWING ON "; MyDate; ":"
Print #1, Chr(13)

Any input will help!
Thanks!

 

[nigelrivett]

Name the second file as 2.

See freefile.

======================================
Cursors are useful if you don't know sql.
DTS can be used in a similar way.
Beer is not cold and it isn't fizzy.

 

[BiggerBrother]

instead of 1 and 2, use fn and fm. Before you use the open command, use fn=freefile and then fm=freefile. This way, there will never be a clash of filenumbers.

BB

 

[tmangin]

Thank you both for your replies...they were both very helpful!