Usage example:

Sub DoThis()
Dim sTextIn$, sFileIn$, sTextOut$, sFileOut$
sFileIn = Get_FileToOpen(): If sFileIn = "" Then Exit Sub

sTextIn = ReadTextFile(sFileIn)
'Do something with sTextIn
sTextOut = DoThat(sTextIn)

'Overwrite the same file
WriteTextFile(sTextOut, sFileIn)
'-OR-
'Add to the same file
WriteTextFile(sTextOut, sFileIn, True)

'-OR- write to a different file
sFileOut = Get_FileToSave(): If sFileOut = "" Then Exit Sub
WriteTextFile(sTextOut, sFileOut)
'-OR- add to a different file
WriteTextFile(sTextOut, sFileOut, True)
End Sub


Function Get_FileToOpen$(Optional FileTypes$)
Dim vFile
If FileTypes = "" Then FileTypes = "All Files ""*.*"", *.*"
vFile = Application.GetOpenFileName(FileTypes)
Get_FileToOpen = IIf(vFile = False, "", vFile)
End Function

Function Get_FileToSave$(Optional FileOut$)
Dim vFile
vFile = Application.GetSaveAsFilename(FileOut)
Get_FileToSave = IIf(vFile = False, "", vFile)
End Function

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion