How to do ftp transfer between ms Access vba and a web server?

You can get ActiveX controls for FTP and manipulate them to upload / download files - this is the appropriate way to do it.

You can excecute command line FTP from within VBA using various methods (and command line ftp can be set to use the commands from a script file).

Check this out - http://bytes.com/topic/access/answers/210987-code-controling-ftp-access-vba

Ss

You can also connect folder from ftp server as network disk with letter and work with it as with usual network disk

Check this one

http://www.databasejournal.com/features/msaccess/article.php/3513061/Simple-FTP-Methods-from-Microsoft-Access.htm

Try this the code  is finally working fine in VBA Excell, so similar to Access

https://www.experts-exchange.com/questions/26599510/FTPputfile-failed-in-VBA.html

duncanb7:
I have followed your link: https://www.experts-exchange.com/questions/26599510/FTPputfile-failed-in-VBA.html 

and was able to upload a file from my ftp server on the web, but:

1) I am only able to upload to the root level, not to a sub folder.
    I cannot see how I can modfy this somewhat cryptical code to do that (se attached code)

2) May I easely change the code to download a file as well?
    I have seen there exists a ftpGetfile, but I cannot understand how to use it.

Public Function FtpUploadFile( _
    ByVal server As String, _
    ByVal username As String, _
    ByVal password As String, _
    ByVal localFile As String, _
    ByVal remoteFile As String) As Boolean
    
    Dim fOk As Long
    
    hOpen = InternetOpenW(0, INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0)
    
    hConnect = InternetConnectW(hOpen, _
                                    StrPtr(server), _
                                    INTERNET_DEFAULT_FTP_PORT, _
                                    StrPtr(username), _
                                    StrPtr(password), _
                                    INTERNET_SERVICE_FTP, _
                                    INTERNET_FLAG_PASSIVE, 0)
    If hConnect = 0 Then
        Debug.Print "InternetConnect failed."; Err.LastDllError
        CleanUp
        Exit Function
    End If
    
    fOk = FtpPutFileW(hConnect, _
        StrPtr(localFile), _
        StrPtr(remoteFile), _
        FTP_TRANSFER_TYPE_UNKNOWN, 0)
        
     
    CleanUp
    FtpUploadFile = fOk
End Function

Select allOpen in new window

als315 said: You can also connect folder from ftp server as network disk with letter and work with it as with usual network disk

This seemed to be the simplest solution!
I wonder:
Can I do this folder connection from within Access VBA, specifying user name and password?
This way I just have a full access to the ftp server while the access app is uploading files.

I don't know how to add network drive from VBA (it seems simple, but I can't find solution).
For downloading file you can use symmetric function:

Public Declare Function FtpGetFile Lib "wininet.dll" Alias "FtpGetFileW" (ByVal hFtpSession As Long, ByVal RemoteFile As String, ByVal LocalPath As String, ByVal FailIfExists As Boolean, ByVal FlagsAndAttributes As Long, ByVal Flags As Long, ByVal Context As Long) As Boolean

I will look at the FtpGetFile...
But first I will continu the search for a method for adding the web as a network drive from VBA, because this seemes to give me the simplest solution. Then I may read and save files as with ordinary disc drives. If somebody has a tip on that I will be happy.  Comming back....

I am not able to have the FTPGetFile to do the job..and I do not know how to get the excat error from that function.

I have a function that uploads a file using the ftpPutFil.
This functions quite well.
Do you see anything wrong in my ftpGetFile code below?
It is this part of the code that returns false (0):

  fOk = FtpGetFileW(hConnect, _
        StrPtr(RemoteFile), _
        StrPtr(localFile), _
        False, _
        0, _
        FTP_TRANSFER_TYPE_UNKNOWN, 0)


Here is my code:
Private Declare Function FtpGetFileW Lib "wininet.dll" (ByVal hFtpSession As Long, ByVal RemoteFile As String, ByVal LocalPath As String, ByVal FailIfExists As Boolean, ByVal FlagsAndAttributes As Long, ByVal Flags As Long, ByVal Context As Long) As Boolean


Public Function FtpDownLoadFile( _
    ByVal server As String, _
    ByVal username As String, _
    ByVal password As String, _
    ByVal RemoteFile As String, _
    ByVal localFile As String) As Boolean
   
    Dim fOk As Long
   
    hOpen = InternetOpenW(0, INTERNET_OPEN_TYPE_PRECONFIG, 0, 0, 0)
   
    hConnect = InternetConnectW(hOpen, _
                                    StrPtr(server), _
                                    INTERNET_DEFAULT_FTP_PORT, _
                                    StrPtr(username), _
                                    StrPtr(password), _
                                    INTERNET_SERVICE_FTP, _
                                    INTERNET_FLAG_PASSIVE, 0)
    If hConnect = 0 Then
        Debug.Print "InternetConnect failed."; Err.LastDllError
        CleanUp
        Exit Function
    End If
   
    fOk = FtpGetFileW(hConnect, _
        StrPtr(RemoteFile), _
        StrPtr(localFile), _
        False, _
        0, _
        FTP_TRANSFER_TYPE_UNKNOWN, 0)
       
     
    CleanUp
    FtpDownLoadFile = fOk
End Function

This example is working for me:
https://www.experts-exchange.com/questions/21772351/FtpGetFile-not-working.html#16208871

I guess you mean the code in the accepted solution?
I get a compilation error....se the attached image
DownLoadComperror.png

I've tested last solution (comment 16208871). Accepted is previous.

Get the same type of compilation error in that code
(I am using Access 2007 (mdb)
DownLoadComperror.png

No, all in a form. Why should that do any difference?

 AddressOf is only allowed in a standard code module.  It cannot be in a class module (which is what form and report modules are).

JimD.

Excellent help! Functions! Sorry for not having awarded the other contributers if I should have done.

 I just re-read my comment, which was a bit off; the procedure that addressof specifies cannot be in a class module.  That's almost the same thing, but not quite.

JimD.

JimD:
I did put it in a standard module and then it compiled OK. May be you should have been rewarded for that, but it is to late now..

<<I did put it in a standard module and then it compiled OK. May be you should have been rewarded for that, but it is to late now.. >>

  Not an issue, Als315 was already there.  I just added a bit, that's all.

JimD.