Iremart.es

Drone paso a paso Ardupilot, Visual studio y otros lenguajes de programación

  • Estadísticas

    • 200Lecturas hoy:
    • 103Lecturas ayer:
    • 127577Total de visitas:
    • 78Hoy:
    • 83Ayer:
    • 667La semana anterior:
    • 1813Visitantes por mes:
    • 84Visitantes por día:
    • 0Visitantes conectados:

Enviar un fichero por FTP

Posted by skskynet on 30th mayo 2010

MsgBox(“Se va a proceder al envio por ftp”, MsgBoxStyle.Exclamation, “Envio de Mantenimiento”)

Try
lbl_barra.Text = “Iniciando comunicacion FTP”

MsgBox(“Ruta fisica del fichero FTP : ftp://ftp.******.com/” + fecha_mante_guardar + “.sk” + vbCrLf + “Ruta fisica del fichero interno : ” + ruta_fitxer + “\” + direc_fitx + “.sk”, MsgBoxStyle.Information)

Dim Servidor As Uri
Dim ClienteFtp As WebClient

Servidor = New Uri(“ftp://ftp.*******.com/” + fecha_mante_guardar + “.sk”)
ClienteFtp = New WebClient()

ClienteFtp.Credentials = New NetworkCredential(“*****.*****”, “contrasena”)
lbl_barra.Text = “Iniciando envio …”

ClienteFtp.UploadFile(Servidor, ruta_fitxer + “\” + direc_fitx + “.sk”)

MsgBox(“Envio al FTP Correcto”, MsgBoxStyle.Information, “Envio de fichero ….”)
lbl_barra.Text = “Envio realizado”
Catch ex As Exception
MsgBox(“Envio al FTP INCorrecto”, MsgBoxStyle.Critical, “Envio de fichero ….”)
lbl_barra.Text = “Envio no realizado”
End Try

Tags: ,
Posted in Visual Studio | No Comments »