Problema con subir archivo a ftp

[marcofbb]

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