FTP Upload folder+content

I need the code to basically upload my website content to my server.? I know there's 100's of free FTP apps out there but what i really need is the VB source code to add to my own application. On my computer I basically have the following folders ( or maybe you can write some code that will copy the SITE directory and all of it's content) [login to view URL] & "/site" [login to view URL] & "/site/images" [login to view URL] & "/site/images/buttons" [login to view URL] & "/site/images/listing1" * there may be up to 500 folders here called listing1...listing2...listing500 [login to view URL] & "/site/images/rentlisting1" * there may be up to 500 folders here called rentlisting1...rentlisting2...rentlisting500 each of these folders will have files in them. The code needs to : 1- create the same folders on the webserver 2- all files need to be overwritten 3- can you add a piece of code so that [login to view URL] displays the action being done ( copying [login to view URL] ...or creating folder site/images) Here's the code I have so far to connect to the FTP ( my root directory is httpdocs/? ? ) 'Set status label lblStatus = "Connecting" 'Set protocol and server [login to view URL] = icFTP [login to view URL] = txtServer 'If no username is entered default to anonymous If txtUserName = "" Then ? ? ? [login to view URL] = "anonymous" Else ? ? ? [login to view URL] = txtUserName End If [login to view URL] [login to view URL] = False 'Set the password and connect [login to view URL] = txtPassword [login to view URL] = 40 [login to view URL] , "DIR" Do While [login to view URL] ? ? ? DoEvents: DoEvents: DoEvents Loop 'CD to ROOT directory [login to view URL] , "CD " & "httpdocs" Do Until ITCReady(False) ? ? ? DoEvents: DoEvents: DoEvents: DoEvents Loop