Единственный способ, которым я знаю, что вы можете сделать это без сторонних компонентов, это использовать Shell для ftp.exe.
Затем вы поместите серию команд FTP в текстовый файл: -
Dim oShell : Set oShell = CreateObject("WScript.Shell")
oShell.Run "c:\windows\system32\ftp.exe -s:myftpcommands.txt", , True