API FtpPutFileの戻り値

お世話になっております。

API FtpPutFileを使用しているのですが
確実にFalseになります。一日悩みましたが原因が
わかりません。

If FtpPutFile(lngConnect, _
"***.txt", _
"***.txt", _
FTP_TRANSFER_TYPE_ASCII, _
0&) <> False Then

です。必要なものを付け加えておきます。

Private Declare Function FtpPutFile Lib "wininet.dll" _
Alias "FtpPutFileA" _
(ByVal hFtpSession As Long, _
ByRef lpszLocalFile As String, _
ByRef lpszNewRemoteFile As String, _
ByVal dwFlags As Long, _
ByVal dwContext As Long) As Long

Private Const FTP_TRANSFER_TYPE_ASCII = &H1&

です。環境はWinXP,VB6+SP5
よろしくお願い致します。

No.2 ベストアンサー 回答者： todo36 回答日時： 2004/02/06 20:01

Declare文の間違い

もしかしてVB.NET用のサンプルを使ったとか

参考URL：http://www.google.com/search?q=VB6+Declare+FtpPu …

この回答へのお礼

回答有り難うございます。

Declare文の訂正にて正常に動きました。
本当に助かりました。有り難うございました。
また、何かあればよろしくお願い致します。

お礼日時：2004/02/06 20:30

No.1 回答者： todo36 回答日時： 2004/02/06 19:38

Err.LastDllError

InternetGetLastResponseInfo