Got it to work finally
Private Sub Form_Load()
Dim objFTP As FTP
Dim fs, f, f1, fc, s
folderspec = "C:\Documents and Settings\%username%\My Documents\TEST1\"
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Const conTARGET = "ftp://servername.com"
Set fc =...