path = "c: emp est.txt" ForReading = 1, ForWriting = 2, ForAppending = 3
' open the file set file = fso.opentextfile(path, ForAppending, TRUE)
' write the info to the file file.write(strName) & vbcrlf file.write(strHomePage) & vbcrlf file.write(strEmail) & vbcrlf
' close and clean up file.close set file = nothing set fso = nothing |