Help! Need VBA code for login FtpServer

Hi,
I am using the following VBA code generated from Excel Marco , to publish the file every 20seconds to my FTP server. However, it created many active FTP sessions and connection was very slow..up to 25 seconds...for only 150K file. Hosting Company wanted me to modify VBA and I dont know how.

Please Login or Register  to view this content.

I hope someone can help me to rewrite / modify the above code, so i can connect to ftpserver more quickly and fewer FTP sessions generated.
suppose my ftp server is ftp://testserver.com , my user name is"triniti", password is"1234" and my publish file is file1.htm

Thanks very much for your help....ThankYOU

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here

You only need 1 script and only 1 VBA line to run the script.
Once the script is on your system running the macro 'run_fte_script" suffices.

To illustrate how to make a script using VBA: (send all Ecxelfiles in 'E:\' to folder 'ftp..../test')

Please Login or Register  to view this content.

Running the script

Please Login or Register  to view this content.

testserver.com is the website without 'www.'