VBAで画像のアップロードをした時だけ
以前こちらに質問した者ですが
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で画像のアップロードをした時だけ画像が一応アップロードはされますが
表示されません。
なぜでしょうか?
再度ご教授いただければ助かります。
よろしくお願いします。
お礼
回答ありがとうございます!!