i need a way to transfer files from a ftp to a local comp.URGENT

I'm looking for a simple way to do this.
I need to transfer files from a deep sub dir within a ftp to a local dir the user specify's.
But i cannot use a pre programmed FTP client because the user may not see from where he/she is downloading.
And there must be a progress bar to see how long and how fast its going (its about really large binary files, .mdb, about 25 mb)...

So can someone help me with this, i'm a total newbie at internet programming...

Sebastian

Private Declare Function URLDownloadToFile Lib "urlmon" Alias _
"URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long

Dim lngRetVal As Long
lngRetVal = URLDownloadToFile(0, "ftp://test.com/test.exe", "c:\test.exe", 0, 0)


But this code don't give you creating progress bar.