Set oShell = CreateObject("Shell.Application")
Set objFSO = CreateObject("Scripting.FileSystemObject")
 set objShell = CreateObject("WScript.Shell")

'Copy Options: 16 = Yes to All
Const copyType = 16

'FTP Wait Time in ms
waitTime = 80000

FTPUser = "myuser"
FTPPass = "mypass"
FTPHost = "ftp IP"
FTPDir = "/Creative/"

strFTP = "ftp://" & FTPUser & "+" & FTPPass & "@" & FTPHost & FTPDir
Set objFTP = oShell.NameSpace(strFTP)