comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

[VB6] Funcion para subir Archivos FTP mediante Inet

  • 0 Respuestas
  • 546 Vistas

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

Desconectado 79137913

  • *
  • Moderator
  • Mensajes: 631
  • Actividad:
    6.67%
  • Reputación 11
  • 4 Esquinas
    • Ver Perfil
    • Doors.Party
    • Email
  • Skype: fg_mdq@hotmail.com
« en: Julio 11, 2018, 09:24:28 am »
HOLA!!!

Funcion (requiere un control Inet llamado Inet):
Código: Visual Basic
  1. 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
  2.     On Error Goto ErrSubirFTP:
  3.     With Inet1
  4.         .UserName = Usuario
  5.         .Password = Clave
  6.         .Execute URL, "PUT " & RutaArchivoLocal & " " & RutaArchivoRemoto
  7.  
  8.         Do While .StillExecuting
  9.             DoEvents
  10.         Loop
  11.  
  12.         SubirFTP= (.ResponseCode = 0)
  13.     End With
  14.     Exit Function
  15. ErrSubirFTP:
  16.     SubirFTP = False
  17. End Function
  18.  

Para llamar a la Funcion:
Código: Visual Basic
  1. UploadFile "ftp://tu.server.com", "Usuario", "Pass", "C:\ArchivoLocal.txt", "/Server/ArchivoRemoto.txt"

Para hacer un Debug del resultado de la subida:
Código: Visual Basic
  1. 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: Visual Basic
  1. 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 Scout Team*                                                   No tienes permisos para ver links. Registrate o Entra con tu cuenta

 

¿Te gustó el post? COMPARTILO!



Funciones para marcar contornos de una imagen y marcar piel.

Iniciado por 79137913

Respuestas: 2
Vistas: 4062
Último mensaje Agosto 06, 2013, 08:30:58 am
por 79137913
Voten para un VBClassic compatible con las ultimas tecnologias!

Iniciado por 79137913

Respuestas: 3
Vistas: 2511
Último mensaje Febrero 23, 2014, 04:35:49 pm
por alexander1712
MZ-Tools 3.0 para Visual Basic

Iniciado por Expermicid

Respuestas: 0
Vistas: 2490
Último mensaje Junio 14, 2012, 12:29:56 pm
por Expermicid
Herramientas y utilidades para VB6

Iniciado por alexander1712

Respuestas: 0
Vistas: 3462
Último mensaje Enero 26, 2013, 03:00:34 am
por alexander1712
[SUB] <FUNCION> Print7913Char (Imprime en PicBox caracteres tipo Google Fair).

Iniciado por 79137913

Respuestas: 0
Vistas: 1560
Último mensaje Mayo 27, 2013, 03:36:32 pm
por 79137913