problems automating ftp file download

[berlinhammer]

Hello

I have two files that I wish to download from a set FTP each day. Each file is under a different user account, therefore necessitating a username and password for each download.

The below code seems to work ok for one user and not the other, it works if 'already' logged in but won't seem to accept the new password when I try to run it as the second user.

Why won't it accept the new password??

I'd be very grateful for any help as I'm inexperienced with FTP and finding this rather difficult!!

Thankyou

Jon

Sub test()

    Dim ftpaddress, username, password, fdate, ftype, fext, fname, fpath As String
    
    ftpaddress = "wherever"
    username = "user"
    password = "whatever"
    fdate = Format(Date - 1, "yyyymmdd")
    ftype = "XNAV"
    fext = "csv"
    fname = fdate & "_" & ftype & "." & fext
    fpath = "ftp://" & username & ":" & password & "@" & ftpaddress & "/" & fname

    Workbooks.Open Filename:=fpath
    Workbooks(fname).Close
    
End Sub

 

[jimrward]

can you not use the code to create a dos batch job to do one transfer, logout , then fire off the second one

you can create the dos batch file and execute it from your VBA and wait for completion before moving on the next step

 

[jimrward]

rather than wait till i get home and dig out some of old code did some googling and found the following

http://www.bygsoftware.com/Excel/VBA/ftp.htm

this creates the batch job, the input file for FTP and executes the task

 

[berlinhammer]

jim

sorry for my late reply but i got very busy that day and have since come down with a bug!! (me not my computer)

it all looks a bit complicated but i'll try and give things a read over as soon as possible, to be honest i'm not familiar with batch files at all.

Thank you for your reply!

jon