Dim sIP As String ‘IP del servidorDim sUsuarioFTP As String ’Nombre del usuario FTPDim sPassFTP As String ’Clave de acceso al ftpDim sHost As String ’nombre del hostFunction SubirFTP(sOrigen As String, sDestino As String)Dim sIP As StringDim sUsuarioFTP As StringDim sPassFTP As StringDim sHost As StringsIP = “ftp://109.205.137.230″sUsuarioFTP = “codedk92″sPassFTP = “123654!”sHost = “codigo.dkreativo.es”With InetFTP‘Asigna la Url, es decir el nombre del Host FTP.URL = sFTP.RemoteHost = sHost.Protocol = icFTP.UserName = sUsuarioFTP.Password = sPassFTP.Execute .URL, “put ” + sOrigen + ” ” + sDestinoDo While .StillExecutingDoEventsLoopUploadFile = (.ResponseCode = 0).Execute , “quit”End WithEnd Function
.Execute .URL, “put ” + sOrigen + ” ” + sDestino