BASP21でのFTPサーバーへのアップデートが出来ないです。
BASP21をインストールし、サーバーのユーザー名やパスワードも
あっている状態です。
しかし、アップデートすると
「を送信できませんでした。」
と表示され、アップデートできませんでした。
「FTP接続できませんでした。」は抜けているので、
それ以外が原因だとは思うのですが分かりません。
Visual Basicのサンプルから書きました。
以下の通りです。
初心者のため質問に不備があるかもしれません。
予めお許しください。
Sub FTPサーバーにUP()
Dim FTP, rc As Long, Server As String, User As String, Pass As String
Dim Target As String, Folder As String
Set FTP = CreateObject("basp21.FTP") ''FTPオブジェクト
Server = "ftp.●●●●●●.jp" ''ホストアドレス
User = "●●●●●●" ''ユーザー名
Pass = "●●●●●●●●" ''パスワード
Target = "C:\Users\●●\Desktop.エクセルファイル.xls" ''送信ファイル
If Target = "False" Then Exit Sub
Folder = "/home/●●●●●●/●●●●/●●●/状況"
rc = FTP.Connect(Server, User, Pass)
If rc <> 0 Then
MsgBox "FTP接続できませんでした。", vbCritical
FTP.Close
Exit Sub
End If
rc = FTP.PutFile(Target, Folder)
If rc <> 1 Then
MsgBox Dir(Target) & "を送信できませんでした。", vbCritical
FTP.Close
Exit Sub
End If
MsgBox Dir(Target) & "を送信しました。", vbInformation
FTP.Close
End Sub
No.2ベストアンサー
- 回答日時:
>ウィルスバスターの鉄壁ガードに穴を空けることが出来ませんでした。
# FTPサーバ名[:ポート番号][:タイムアウト][ファイアーウォール]。":" で区切ってポート番号(省略値21)とタイムアウト値(秒単位、省略値120)を指定できます。
# rc = ftp.Connect("ftp.microsoft.com:21:120","anonymous","who@who.com")
http://www.hi-ho.ne.jp/babaq/basp21f.html
BASP21 FTPは、ポート21なんていう所を使っているようですね。
その21を25にしてあげれば、標準で通るはずです。
今、私自身のファイヤーウォールを確認してみましたが、25は、あっても、21は通常入れていないから、やっぱりブロックしてしまうようですね。
この回答への補足
申し訳ございません。
ポート番号を25に変更すると
自分で作成したメッセージ、
「FTP接続できませんでした。」
となってしまいました。
と言うことでファイヤーウォールが問題ではないのかもしれません。
何度もお答えいただいてありがとうございます。
参考(というよりそのまま抜粋してしまったのですが)にしたのは
http://officetanaka.net/excel/vba/tips/tips47.htm
です。
何度もありがとうございました。
師走で忙しく、まだ試せていないです。
教えていただいたのに申し訳ございません。
試してからベストアンサーに設定いたします。
No.1
- 回答日時:
VB カテゴリではレスがつかなかったようですね。
いくつか気になる点を指摘しておきます。
>Target = "C:\Users\●●\Desktop.エクセルファイル.xls" ''送信ファイル
>If Target = "False" Then Exit Sub
ここは、
Target = "C:\Users\●●\Desktop.エクセルファイル.xls" ''送信ファイル
If Dir(Target) ="" Then Exit Sub
>rc = FTP.PutFile(Target, Folder) ←テキスト送信です。
Excelファイルは、バイナリですから、
rc = FTP.PutFile(Target, Folder,1 )'三番目の引数のタイプは、1 になります。
なお、ファイヤーウォールは、開けておいてください。
御礼が遅くなってしまい大変申し訳ございません。
ファイヤーウォールが原因のようで、
ウィルスバスターの鉄壁ガードに穴を空けることが出来ませんでした。
もう少し勉強してみます。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
関連するカテゴリからQ&Aを探す
おすすめ情報
- ・漫画をレンタルでお得に読める!
- ・人生のプチ美学を教えてください!!
- ・10秒目をつむったら…
- ・あなたの習慣について教えてください!!
- ・牛、豚、鶏、どれか一つ食べられなくなるとしたら?
- ・【大喜利】【投稿~9/18】 おとぎ話『桃太郎』の知られざるエピソード
- ・街中で見かけて「グッときた人」の思い出
- ・「一気に最後まで読んだ」本、教えて下さい!
- ・幼稚園時代「何組」でしたか?
- ・激凹みから立ち直る方法
- ・1つだけ過去を変えられるとしたら?
- ・【あるあるbot連動企画】あるあるbotに投稿したけど採用されなかったあるある募集
- ・【あるあるbot連動企画】フォロワー20万人のアカウントであなたのあるあるを披露してみませんか?
- ・映画のエンドロール観る派?観ない派?
- ・海外旅行から帰ってきたら、まず何を食べる?
- ・誕生日にもらった意外なもの
- ・天使と悪魔選手権
- ・ちょっと先の未来クイズ第2問
- ・【大喜利】【投稿~9/7】 ロボットの住む世界で流行ってる罰ゲームとは?
- ・推しミネラルウォーターはありますか?
- ・都道府県穴埋めゲーム
- ・この人頭いいなと思ったエピソード
- ・準・究極の選択
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
FTPソフト filezillaのキューフ...
-
ネットワーク上のコンピュータ...
-
勝手にファイルが消えたり移動...
-
何で元のファイルとアップロー...
-
CISCO上でtftp操作
-
2台のPCでRS-232C接続でファイ...
-
大きいファイルサイズも可能な...
-
大容量のファイルの送信
-
外部のPC(たとえば学校)から...
-
WebサーバとFTPサーバってどう...
-
http://www.tos-land.net/index...
-
ワード ある日突然 文書の表...
-
結局、ノートパソコンはいつ買...
-
wordの文書をPC画面中央に表示...
-
クリープを入れないコーヒーな...
-
エクセルの列と行の見出しが小...
-
パソコンって家電製品だと思い...
-
av4と言うエ○サイトって動画を...
-
iPhoneでav4と言うエ○サイトの...
-
PowerPointでマクロをショート...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
FTPソフト filezillaのキューフ...
-
2台のPCでRS-232C接続でファイ...
-
WebサーバとFTPサーバってどう...
-
ネットワーク上のコンピュータ...
-
CISCO上でtftp操作
-
何で元のファイルとアップロー...
-
勝手にファイルが消えたり移動...
-
遠い場所にある2台のPCを共有...
-
社内ネットワークで、ログアウ...
-
FTPクライアントソフト Wi-Fiだ...
-
WebサーバーとFTPサーバーの関...
-
移転せずに、1ファイル5MBの画...
-
ZIPなどの圧縮ファイルを公開し...
-
「共有違反」って?
-
外部のPC(たとえば学校)から...
-
今更ですがTorrentって何
-
ウェブサーバの統計で、リクエ...
-
.htaccessによる特定のファイル...
-
Yahooメッセンジャーのファイル...
-
共有フォルダの中のファイルが...
おすすめ情報