Dim sIP As String   ‘IP del servidor
Dim sUsuarioFTP As String  ’Nombre del usuario FTP
Dim sPassFTP As String  ’Clave de acceso al ftp
Dim sHost As String  ’nombre del host



Function SubirFTP(sOrigen As String, sDestino As String)

Dim sIP As String
Dim sUsuarioFTP As String
Dim sPassFTP As String
Dim sHost As String

sIP = “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

‘nombre de usuario y password de la cuanta FTP
.UserName = sUsuarioFTP
.Password = sPassFTP

‘Escribe el fichero en el servidor con el comando Put
.Execute .URL, “put ” + sOrigen + ” ” + sDestino

Do While .StillExecuting
DoEvents
Loop

UploadFile = (.ResponseCode = 0)
.Execute , “quit”

End With

End Function


/public_html/sigebo