Appending files on FTP site using VBA

[elmonko]

Hi,

I currently have the following which creates a script and uploads a text file to an FTP site

Set TextFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(scriptfile, True)
TextFile.writeline "user@mywebsite.co.uk"     'username
TextFile.writeline "password!" 'password
TextFile.writeline "cd GK" 'directory on FTP site
TextFile.writeline "binary"
TextFile.writeline "put " + Chr(34) + "c:\temp\IDCheck.txt" + Chr(34) 'file to be uploaded
TextFile.writeline "bye"
TextFile.Close

Set TextFile = CreateObject("Scripting.FileSystemObject").CreateTextFile(batfile, True)
TextFile.writeline "ftp -s:" + Chr(34) + scriptfile + Chr(34) + " www.mywebsite.co.uk"
TextFile.writeline "del " + Chr(34) + "c:\temp\IDCheck.txt" + Chr(34)
TextFile.writeline "del " + Chr(34) + scriptfile + Chr(34)
TextFile.writeline "del " + Chr(34) + batfile + Chr(34)
TextFile.Close

The file

c:\temp\IDCheck.txt

is created everytime an excel spreadsheet is opened and contains a single cell value. I would like to append the contents of the text file on the FTP as currently it just gets overwritten. Is this possible

 

[mjbeam]

Yes. Do a get for the file from the FTP site first. Append your data to the end of it. Then upload it.

 

[elmonko]

Thanks, Is there a way of doing without downloading the file first?

 

[mjbeam]

According to the FTP RFC (http://www.ietf.org/rfc/rfc959.txt) there is an append command but I have never used it. So you could try changing the "put" in your code to "append" and see what happens.


APPEND (with create) (APPE)

This command causes the server-DTP to accept the data
transferred via the data connection and to store the data in
a file at the server site. If the file specified in the
pathname exists at the server site, then the data shall be
appended to that file; otherwise the file specified in the
pathname shall be created at the server site.