hola pablo
te mando una función para enviar o descargar archivos de un servidor ftp
Los parámetros son fácil de entender, no creo que tengas problemas, pero si es así no dudes en comunicérmelo. Da como resultado verdadero o falso, si se ha efectuado o no la operación.
Un saludo, adolfo
Private Function ConexionFTP(Origen, Destino, Login As String, Password As String, DireccionIP As String, Descarga As Boolean)
'Declaramos funciones y constantes de la API
dim Const INTERNET_OPEN_TYPE_PRECONFIG = 0
dim Const INTERNET_DEFAULT_FTP_PORT = 21
dim Const INTERNET_SERVICE_FTP = 1
dim Const PassiveConnection As Boolean = True
dim Const INTERNET_FLAG_PASSIVE = &H8000000
dim Const FTP_TRANSFER_TYPE_UNKNOWN = &H0
dim Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileA" (ByVal hConnect As Long, ByVal lpszRemoteFile As String, ByVal lpszNewFile As String, ByVal fFailIfExists As Long, ByVal dwFlagsAndAttributes As Long, ByVal dwFlags As Long, ByRef dwContext As Long) As Boolean
dim Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" (ByVal hConnect As Long, ByVal lpszLocalFile As String, ByVal lpszNewRemoteFile As String, ByVal dwFlags As Long, ByVal dwContext As Long) As Boolean
dim Declare Function InternetConnect Lib "wininet.dll" Alias "InternetConnectA" (ByVal hInternetSession As Long, ByVal sServerName As String, ByVal nServerPort As Integer, ByVal sUserName As String, ByVal sPassword As String, ByVal lService As Long, ByVal lFlags As Long, ByVal lContext As Long) As Long
dim Declare Function InternetOpen Lib "wininet.dll" Alias "InternetOpenA" (By
