[VB6] Funcion para subir Archivos FTP mediante Inet

  • 0 Respuestas
  • 6535 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 712
  • Actividad:
    20%
  • Country: 00
  • Reputación 7913
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email

[VB6] Funcion para subir Archivos FTP mediante Inet

  • en: Julio 11, 2018, 09:24:28 am
HOLA!!!

Funcion (requiere un control Inet llamado Inet):
Código: (vb) You are not allowed to view links. Register or Login
Private Function SubirFTP(ByVal URL As String , ByVal Usuario As String , ByVal Clave As String , ByVal RutaArchivoLocal As String , ByVal RutaArchivoRemoto As String) As Boolean
    On Error Goto ErrSubirFTP:
    With Inet1
        .UserName = Usuario
        .Password = Clave
        .Execute URL, "PUT " & RutaArchivoLocal & " " & RutaArchivoRemoto

        Do While .StillExecuting
            DoEvents
        Loop

        SubirFTP= (.ResponseCode = 0)
    End With
    Exit Function
ErrSubirFTP:
    SubirFTP = False
End Function

Para llamar a la Funcion:
Código: (vb) You are not allowed to view links. Register or Login
UploadFile "ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt"
Para hacer un Debug del resultado de la subida:
Código: (vb) You are not allowed to view links. Register or Login
Debug.Print UploadFile ("ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt")
Para hacer un Mensaje de texto del resultado de la subida:
Código: (vb) You are not allowed to view links. Register or Login
MsgBox Iif(UploadFile ("ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt"), "Archivo Subido Correctamente", "Error - Archivo No Subido")
GRACIAS POR LEER!!!
"Algunos creen que soy un bot, puede que tengan razon"
"Como no se puede igualar a Dios, ya he decidido que hacer, ¡SUPERARLO!"
"La peor de las ignorancias es no saber corregirlas"

*Shadow Scouts Team*                                                   You are not allowed to view links. Register or Login