FTPでエクセルをPUTするとファイルが破損する

質問

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

FtpPutFile Lib "wininet.dll"

上記のFTPプットの部分で問題がありそうです。

ローカルからLAN経由で接続されたFTPサーバーを使い
ファイルサーバーへエクセルファイルをアップロードしたいのですが
ファイルが破損して開けなくなってしまいます。

バイナリ転送、アスキー転送と転送モードを変えて試しても
NGでした。

xmlファイルなどテキストであれば問題なくアップロードできました。

エクセルファイルはFTP転送できないのでしょうか？
なにかよい方法があれば教えてください。

宜しくお願い致します。

回答No.1

yorozu_ya · ベストアンサー

バイナリ転送で出来るはずです。
Option Explicit は記述してますか？

お礼

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

>バイナリ転送で出来るはずです。

以下のように記述しているのですが、うまくバイナリで転送されていないようです。
FTPソフトでバイナリモードにしたらうまくいきました。。

以下の記述のどこがいけないのでしょうか？

お分かりになりますか？

Public Const FTP_TRANSFER_TYPE_BINARY As Long = &H2&

Call fcFTPPutFile(Sorce _
, UpLoadTo _
, FTP_TRANSFER_TYPE_BINARY)

補足

バイナリ転送がうまく設定できていないようでした。
バイナリ転送でうまくいきました。
ありがとうございました！

回答No.2

todo36

> 以下の記述のどこがいけないのでしょうか？

エラー処理が出来ていない。
FtpPutFileの戻り値とInternetGetLastResponseInfoを把握できるように。

> ファイルが破損

ファイルサイズが小さいならFTP PASSIVEにすると直るかも

それともバイナリ化け？

お礼

ご回答ありがとうございます。
今後の参考とさせていただきます。