GTWFAITIXFNRのプロフィール

以前こちらに質問した者ですが http://oshiete.coneco.net/qa8302218.html htmlファイルをvbaでFTPでアップロードすることは出来たのですが 画像がうまくアップロードできません。 Sub FTPで送る() Dim str送信ファイル As String str送信ファイル = MyDesktop & "\" & strSheetsName '送信ファイル Set FTP = CreateObject("basp21.FTP") With Sheets("メイン") Server = .Cells(.Cells.Find(What:="ホストアドレス", LookAt:=xlWhole).Row, 2) User = .Cells(.Cells.Find(What:="FC2_ID", LookAt:=xlWhole).Row, 2) Pass = .Cells(.Cells.Find(What:="FTPパスワード", LookAt:=xlWhole).Row, 2) End With Folder = "/" '送信フォルダ rc = FTP.Connect(Server, User, Pass) rc = FTP.PutFile(str送信ファイル, Folder) If rc <> 1 Then Debug.Print Dir(str送信ファイル) & "を送信できませんでした。" FTP.Close Exit Sub End If FTP.Close End Sub これで、拡張子がhtmlは問題なくアップロードできますが jpgはアップロードされますが、画像を開けません。 画像が空白になります。 FFFTPでアップロード済みの画像を開いてみようとすると、 「ファイルが破損しているか大きすぎる可能性があります」 となります。 VBAを使わずに手動で同じ画像をFFFTPでアップロードすると 問題なく画像が表示されます。 VBAで画像のアップロードをした時だけ画像が一応アップロードはされますが 表示されません。 なぜでしょうか？ 再度ご教授いただければ助かります。 よろしくお願いします。