かゆい所に手が届く

流郷さんがExcel VBAって意外とすごいというエントリで

他にもちょいちょいと便利なことがあるので、Excelを使った事務処理の多い方はぜひ勉強されてみてはいかがでしょうか。

と書かれていますが、Windows 2000/XP だったら標準で備わっているWSH ＋各種COMコンポーネント つかうことで、結構かゆい所に手が届くものっていうのは意外に多いと思います。

例えばVBScript ＋BASP で、特定のフォルダにあるファイルを指定のFTPサーバにアップっていうのも、のimagesフォルダにあるファイルを全て取得するのも以下のような感じでできます

Option Explicit
Call UseFTP()


Sub UseFTP

  Dim objFTP

  Dim strFTPSvrname

  Dim strFTPloginuser

  Dim strFTPloginpasswd

  Dim rc

  Set objFTP = CreateObject("basp21.FTP")

  strFTPSvrname = "xxxx.xxxx.xxx.xxx"

  strFTPloginuser = "xxxx.xxxx.xxx.xxx"

  strFTPloginpasswd = "xxxx.xxxx.xxx.xxx"

  rc = objFTP.Connect(strFTPSvrname,strFTPloginuser,strFTPloginpasswd)

  If rc= 0 Then

    objFTP.Command("pasv")

    rc = objFTP.GetFile("/images","c:\")

    objFTP.Close

  End if
Set objFTP = Nothing
End sub

（注）
上記ソースで動くかどうかきちんと確認していませんがたぶんうまくいくはずです。個人的にレンタルしているサーバー上でテストしたらできました。
strFTPSvrname：FTPサーバーを指定
strFTPloginuser：FTPサーバーへのログインIDを指定
strFTPloginpasswd：FTPサーバーへのログインパスワードを指定

 ちなみに、Excel を極めるとExcelゲーセンにあるようなゲームもつくれるみたいですね。（自宅の環境にはExcel ないので、試し事がないんだけどスーパーテキストマリオっていうのだけやってみたいなぁ。。。）