a simple way to write to a file

[AM003295]

In my programs I use the folloing code to read in data from a notebook file into my program.

Open "P:\corp\14211\For ATransfer\ATMTaddList.txt" For Input As #4
Do
i = i + 1
ReDim Preserve sListOfAllEmailAdd(i) As String
Line Input #4, sListOfAllEmailAdd(i)
'Debug.Print sUsersArray(i)
Loop Until sListOfAllEmailAdd(i) = "<>"
Close #4


This works fine and is very easy and simple to use. Now I want to write data to a notebook file and I was wondering if there is a nice and simple way to do that?

[dc42]

Sure. The following will write an email to the end of the text file


Open "P:\corp\14211\For ATransfer\ATMTaddList.txt" For Append As #1
Print #1, "Emailaddress@domain.co.uk"
Close #1

Hope this helps

Debs

[AM003295]

This works great. Just what I needed.

Thanks