Sub WriteToFile(Text$, ffile$) | ||
'Version: 1.000 | ||
'Purpose: To write passed Text to passed ffile | ||
Dim gscurfile As String | ||
On Error GoTo h1 | ||
Dim tempfnum | ||
tempfnum = FreeFile | ||
'If flg% = APPEND_IT Then | ||
gscurfile = ffile$ | ||
Open ffile$ For Append As tempfnum | ||
'Else | ||
' Open ffile$ For Output As tempfnum | ||
'End If | ||
Print #tempfnum, Text$; | ||
Close #tempfnum | ||
Exit Sub | ||
h1: | ||
Resume Next | ||
Exit Sub | ||
End Sub |