[VB6] Funcion para subir Archivos FTP mediante Inet

Iniciado por 79137913, Julio 11, 2018, 09:24:28 AM

Tema anterior - Siguiente tema

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

HOLA!!!

Funcion (requiere un control Inet llamado Inet):
Código: vb

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
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
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
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*                                                No tienes permitido ver los links. Registrarse o Entrar a mi cuenta