Upload files with INET

I can't make it work... Can you put some example information for me to see how it works? Thanks

And another thing... I don't understand the difference between URL and RemoteHost

OK, sorry about that.  URL is put together by the Inet control, its just an ftp path which includes the remotehost, which is just the name of the server.  Here is a fully working example (except the username & password are changed):

Private Sub Form_Load()
Debug.Print UploadFile("ftp.tripod.com", "username", "password", "C:\devicetable.log", "devicetable.log")
End Sub

Function UploadFile(ByVal HostName As String, _
    ByVal UserName As String, _
    ByVal Password As String, _
    ByVal LocalFileName As String, _
    ByVal RemoteFileName As String) As Boolean

    With Inet1
        .Protocol = icFTP
        .RemoteHost = HostName
        .UserName = UserName
        .Password = Password
        .Execute .URL, "Put " & LocalFileName & " " & RemoteFileName
        Do While .StillExecuting
            DoEvents
        Loop
        UploadFile = (.ResponseCode = 0)
    End With
End Function

By the way, I forgot to mention that you need to add an Inet control to your form, call it Inet1.  (Add it to your toolbar by right-clicking it and selecting components, then checking "Microsoft Internet Transfer Controls" and clicking OK)

Ok, I'll try it... but first I need to know how to put his file inside a  folder of the server. I can't put it the root. I need to put it inside the 'files' folder. Thanks again and again! :)

To put the file into a folder, just change the RemoteFileName from "filename.ext" to "files/filename.ext"

Ok! But it doesn't work... It returns no errors, but the files are not being uploaded. What may be happening?

Oh and yes, I'm using the code exactly the way it is:

Function UploadFile(ByVal HostName As String, _
    ByVal UserName As String, _
    ByVal Password As String, _
    ByVal LocalFileName As String, _
    ByVal RemoteFileName As String) As Boolean

    With Inet1
        .Protocol = icFTP
        .RemoteHost = HostName
        .UserName = UserName
        .Password = Password
        .Execute .URL, "Put " & LocalFileName & " " & RemoteFileName
        Do While .StillExecuting
            DoEvents
        Loop
        UploadFile = (.ResponseCode = 0)
    End With
End Function

Private Sub Form_Load()

Debug.Print UploadFile("ftp.xx.xxx", "user", "password", "C:\file.txt", "files\file.txt")

End Sub

Still no good...

Hmm... it worked for me...  Are you sure the FTP server is functioning properly?  And are you sure you changed the slash?