VBAでFTPファイル転送がうまくいかない

利用環境
　access:2003
　os:xp

このサイトを参考にvbaでFTPでファイル転送を実装しようとしています。
http://www.happy2-island.com/access/gogo03/capte …


困っているのは、、エラーがでないのですが、ファイルが転送されないということです。
接続先やUserID,パスワードを間違えた場合は、ちゃんとエラーが表示されますので
接続まではできているのではないかと思いますが、最後のFTPファイル転送がうまくいきません。。

インターネットサービスのオープンとFTPサーバへの接続はうまくいっているようですが
fcFTPPutFileの結果が何度やってもFALSEになります。

どのあたりを探れば問題がわかりますでしょうか？
ご教示いただけますと助かります。



'■外部サーバーへファイルをアップロード

Dim lngRC As Long

'インターネットサービスをオープンします
lngRC = fcInternetOpen

'オープンに成功したらFTPサーバとの接続を行います
If lngRC = 0 Then


'FTPサーバへ接続します
lngRC = fcFTPConnect()



'接続に成功したら、FTPサーバからファイルをアップロードします
If lngRC = 0 Then

Debug.Print Err.LastDllError


'●↓この結果がFALSEになってしまい、ファイル転送ができません。。。
Call fcFTPPutFile(送り元ファイルパス＆ファイル名_
, 送り先ファイルパス＆ファイル名 _
, FTP_TRANSFER_TYPE_ASCII)


Else
MsgBox エラー内容
End If

Else
MsgBox エラー内容
End If



●↓この結果がFALSEになってしまい、ファイル転送ができません。。。
Public Function fcFTPPutFile(dLc As String, dRmt As String, dMd As Long) As Boolean

'dLc ／ローカルファイル
'dRmt／リモートファイル
'dMd ／転送モード

'FTPサーバへファイルをアップロード
fcFTPPutFile = FtpPutFile(Pub_lngFtpHnd _
, dLc _
, dRmt _
, dMd _
, 0)

End Function

No.1 ベストアンサー 回答者： layy 回答日時： 2011/02/06 20:18

内容はまだ見てませんが・・・・。

当然のことながら、
ＦＴＰソフトでファイル転送ができることが前提。

原因を絞り込む。
「ＦＴＰ」がおかしいのか、
「ＶＢＰ」がおかしいのか、
判別しなければ進まない。

ファイル転送ですから、ファイルの権限とかは確認。

この回答への補足

ファイル属性を調べましたら、属性がAとなっておりました。
ちなみにファイルはxmlファイルです。

Aはアーカイブ属性とのことですが、ファイル転送できないのでしょうか？？？

補足日時：2011/02/07 08:58

この回答へのお礼

ご回答ありがとうございます。

FTPソフトでは転送できました。
ＤＯＳプロンプトでＦＴＰ転送も可能でした。

ファイル権限も大丈夫だと思いますが確認してみます。

お礼日時：2011/02/06 20:56