Repost - InetTransferLib ftp problem

[Owen Jenkins]

Hi again. No responses to the first post 4 days ago, so just trying my
luck again. Anyone have any hints where I might get an answer to this?
It is an Access problem, but if you can point me to another newsgroup
which could help, please do.
-----------

I've been successfully using the InetTransferLib to upload and download
files via ftp for a long time. I only use it intermittently, and
recently this stopped working on one of my computers (P4, WXPHome,
Acc2000). The identical code in the identical database will work on
other similar computers and I can't work out why it is not working.

For ftp downloading, the following line in the code (ConnectToFTPHost
procedure) returns a zero, which subsequently results in a 'Cannot start
file transfer...' error.

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

For uploading, the following line in the code (sChangeDir procedure)
returns zero.

lngRet = apiFtpSetCurrentDir(hSession, strExtract)

and the upload procedure finally returns the very helpful code of
-2147219289.

I've modified various settings in Internet Explorer but nothing has made
a difference. I can use the Windows FTP program from the command prompt,
and can access the relevant ftp site via Internet Explorer or WSFTP.

Any help greatly appreciated.

Owen Jenkins

[Lyle Fairfield]

I do not use the InetTransferLib having written my own FTP Class. I
have never experienced the problem you describe but

I run ShowLastResponseInfo both for Success and on Error; it often
helps.

I've been told that I should use
Private Declare Function GetLastError Lib "kernel32" () As Long
instead but I have not found it to be so useful.

*****

Private Declare Function InternetGetLastResponseInfo Lib "wininet.dll"
_
Alias "InternetGetLastResponseInfoA" _
(lngError As Long, _
ByVal strBuffer As String, _
lngBufferLength As Long) As Boolean

Public Sub ShowLastResponseInfo()
Dim lngError As Long
Dim strError As String
Dim strBuffer As String
Dim lngBufferLength As Long
strBuffer = String(2047, " ") & vbNullChar
lngBufferLength = 2048
If InternetGetLastResponseInfo(lngError, strBuffer,
lngBufferLength) = 0 Then
MsgBox "Last response information could not be read!",
vbInformation, "FTP"
Else
If lngError <> 0 Then strError = " Error " & lngError
If lngBufferLength <> 0 Then _
MsgBox Left(strBuffer, lngBufferLength), vbInformation,
"FPT" & Nz(strError, "")
End If
End Sub

[Owen Jenkins]

Lyle Fairfield wrote:

I do not use the InetTransferLib having written my own FTP Class. I
have never experienced the problem you describe but

I run ShowLastResponseInfo both for Success and on Error; it often
helps.

Thanks Lyle,

I tried that and it returned with no error, just giving the information ...

200 Type set to I
227 Entering passive mode (80, 203, 180, 126, 213, 179)

This looks like helpful info, but I don't know what it means.