add the microsoft internet transfer control to ur project
VB Code:
  1. Inet1.URL = "ftp://ftp.myftpsite.com" 'url

  2. Inet1.UserName = "Anonymous" 'username

  3. Inet1.Password = "password"  'password

  4. DoEvents 

  5. Inet1.Execute , "PUT C:\whatever\whatever.txt /dir/dir/whatever.txt"

  6. 'this is what actually puts the text in... the first filename

  7. 'is the local path, the second filename is the remote path

  8. Loop