Hola , yo tengoo una archivo asd.txt en C:\ kiero subirlo ( modo oculto ) via ftp a mi hosting de webicndario , intente de todas las maneras posible , o me da error o no sube nada .
Este es el codigo q utiliso :
Código:
Private Declare Function FtpPutFile Lib "wininet.dll" Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, ByVal lpszLocalFile As String, _
ByVal lpszRemoteFile As String, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Boolean
Private 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 nService As Long, ByVal dwFlags As Long, _
ByVal dwContext As Long) As Long
Private Declare Function InternetOpen Lib "wininet.dll" _
Alias "InternetOpenA" (ByVal sAgent As String, _
ByVal nAccessType As Long, ByVal sProxyName As String, _
ByVal sProxyBypass As String, ByVal nFlags As Long) As Long
Private Declare Function InternetCloseHandle Lib "wininet.dll" _
(ByVal hInet As Long) As Integer
Const INTERNET_SERVICE_FTP = 1
Function FTPUpload(Archivo As String, Host As String, Usuario As String, Clave As String)
Dim hINetSession, hSession, Temp() As String
Temp = Split(Archivo, "\")
hINetSession = InternetOpen("project", 0, vbNullString, vbNullString, 0)
hSession = InternetConnect(hINetSession, Host, _
"21", Usuario, Clave, INTERNET_SERVICE_FTP, 0, 0)
If FtpPutFile(hSession, Archivo, Temp(UBound(Temp)), 1, 0) = False Then:
Call InternetCloseHandle(hSession)
Call InternetCloseHandle(hINetSession)
End Function
osea lo configuro con mis datos y noc que honda ,
ya se que en google esta , lo busque 3 dias como 2 horas por dia y nada osea encontraba los codigos pero no me anda .
me gustaria que si me pueden pasar el codigo ( si es mejor me den el proyecto )
Aclaro : no pueden decir q me estan aciendo la tarea , ya que no es una tarea y solo tengo 12 años i solo kiero el codigo para ver como es :D
pd : Disculpen la falta de ortografia XD
Cuidense
Desde ya muchas gracias
Listo ya encontre el problema ....
Problem :
era que no registre el ftp.dll