FTPコマンドで複数のファイルをアップロードしたいです

Question

FTPサーバーに、VBAあるいはABスクリプトを使用し、
特定のローカルフォルダAと同期させたく思っております。

Aにはファイルとフォルダがランダムであります。
FTPサーバではフォルダごと送るということができず、サーバー上にフォルダを作成し、その後
そのフォルダにファイルをいれたくおもっております。

初心者で、いままでVBAでやっておりましたが、
なかなかできずにおりました。

よくよく調べてみるとVBスクリプトのほうがいいとのことです。こちらはまったく存じ上げません。

お手数おかけいたしますが、どなたかお答えいただける方、コードをお教えいただけませんでしょうか。

【ウィンドウズです。客先ではLINUXはつかえないとのことです】

Answer 1

いろいろなやり方があるのですが、VBSからならBASP21を使うと簡単です。

 Set ftp = CreateObject("basp21.FTP")

 ret = ftp.Connect(ホスト, ユーザーID, パスワード)
ret = ftp.PutFile(転送ファイルパス, 転送先フォルダ)

みたいな感じです

詳しくは以下のサイトで。（配布元）

http://www.hi-ho.ne.jp/babaq/basp21.html

Comments

[alice]

回答下さり、ありがとうございます。
実はBASP２１でもいろいろやってはいたのですが、
FTP上でフォルダを作成するところまではできるのですがファイルをその直下に転送することができませんでした。
BASPに関しての記述が抜けてましたことお詫びします。
ご回答ありがとうございます。

[Guu]

フォルダを作ることができたら、そのフォルダにftp.PutFile(転送元ファイルパス, 転送先フォルダ) でＯＫです。

ftpコマンドでカレントフォルダを移動してftp.PutFile(転送元ファイルパス, "")でもＯＫです。

BASP21で何故できなかったのか？コマンドに対してのエラーコードは？

[alice]

Guuさん

ありがとうございます。
先ほどやり直してみたところ、BASPでできました。
WININETのコードと混同していたようです。
あとはループ処理をかけて、なんとかしていきます。
助けてくださりありがとうございます。

Answer 2

FTPのコマンドがわかれば大丈夫ですか？

複数のファイルを一度に転送するときはmputを用います。
http://ash.jp/net/ftp_command.htm
http://www.itsenka.com/contents/development/ftp/mput.html

Comments

[alice]

ご回答くださり、ありがとうございます。
こちらのサイトを拝見し、がんばってみようと思っております。
今回はいろいろな点で反省点がありました...
私が事前にもっとフローを考えて、何ができてできないのかを調べていれば、
MGが早いうちに客先へ提案できた内容もあったなと...
まあ難しい部分もあったと考えてはいるのですが...
勉強は大事ですね...ありがとうございます。