If you are using the same code as I, I had to change the following in Public
Sub ConnectToFTPHost( _
...
 If Not mblnUpload Then
   With mtURLInfo

     Rem This line below was added - the apiFTPFileOpen command did not
like the "/" in
     Rem front of the path The line below strips the foward slash ..
     If Mid(.lpszUrlPath, 1, 1) = "/" Then .lpszUrlPath = Mid(.lpszUrlPath,
2)

     hFTP = apiFtpOpenFile(hSession, .lpszUrlPath, _
         lngFileMode, FTP_TRANSFER_TYPE_BINARY Or _
         INTERNET_FLAG_DONT_CACHE, 0&)

     If hFTP = 0 Then Err.Raise mconERR_CANNOT_START_TRANSFER

       lngRet = apiInetQueryDataAvailable(hFTP, mlngSize, 0&, 0&)
       If mlngSize = 0 Then mlngSize = 1
   End With
 End If
...
Hope this helps...

Jim Wood

______________________________________________________________________________________________

The Closest Christian Bookstore Is Only A Click Away

http://www.KathysChristianBooks.com

______________________________________________________________________________________________

Offer not valid in Rome or Salem. Fiddling prohibited by law. Being turned
into a newt also prohibited by law.

________________________________________________________________________________