[三流君] －－＞ [ＶＢＡで楽しく] －－＞ [バックナンバー一覧]
－－＞ No.025 コマンドラインのＦＴＰを使ってみた

コマンドラインのＦＴＰを使ってみた

メルマガ発行内容

＜コマンドラインのＦＴＰを使ってみた＞
こんにちは、三流プログラマーＫｅｎ３です。

今回は、
ＦＴＰの起動テスト
を
軽く書いてみたいと思います。

/*
 * １. 質問をもらいました
*/

BBS に以下の投稿がありました。
 >投稿時間：2002/12/17(Tue) 13:24
 >おなまえ：YN
 >タイトル：rsh,ftpの記述方法
 >コメント：
 >
 >WindowsからLinux（リモート側）へrshを使いたいと考えています。
 >リモートユーザのホームディレクトリ配下に.rhostsファイルを作成し、実行を
 >許可するホスト名とユーザ名を指定する。その後、VBAで「rsh Linux計算機名 
 >-l Linux計算機ユーザ名 -n プログラム名」と書くと思うのですが、それを書く
 >VBAの記述方法が？です。
 >
 >その逆は、Windows側にコマンドを書いたファイルを用意して「ftp -s:ファイル
 >名　Linux計算機のホスト名」と書くと思うのですが、それを書くVBAの記述方法
 >が？です。
 >
 >何かヒントがあったら教えてください。
 >--------------------------------------------------------

リモート側の処理はわからないけど、
ＦＴＰでデータを取ってくるのはやったことあるので、
簡単に。

/*
 * ２．ftp -s:ファイル名　Linux計算機のホスト名 までわかっているなら
*/

ftp -s:ファイル名　Linux計算機のホスト名
ここまで、知ってるなら、
話はハヤクって、
たぶん、-sのパラメータファイルを作成する方法がわかればすぐだと思うので、
軽く

Sub test()

    Dim strPNAME As String   'パラメーターファイル名
    Dim nFNO     As Integer  'ファイル番号

    strPNAME = ThisWorkbook.Path & "\ftptest.txt" 'ファイル名作成
    nFNO = FreeFile  '空いてるファイル番号を取る

    Open strPNAME For Output As #nFNO 'ファイルを新規作成

    'データ書き込み
    Print #nFNO, "help "
    Print #nFNO, "open xxx"  'ここでパスワードを聞いてきたらウラ技を使う
    Print #nFNO, "cd xxx"
    Print #nFNO, "get aaa.dat " & ThisWorkbook.Path & "\aaa.dat"
    
    Close #nFNO  '開いたら閉じようね
    
    'shellでＦＴＰを起動
    Shell "ftp -s:" & strPNAME

End Sub

http://www.ken3.org/vba/lzh/vba025.lzh
に保存しました。
解凍してtest025-book.xlsを開いて、
テストすると、

実行結果

ftp> help
Commands may be abbreviated.  Commands are:

!               delete          literal         prompt          send
?               debug           ls              put             status
append          dir             mdelete         pwd             trace
ascii           disconnect      mdir            quit            type
bell            get             mget            quote           user
binary          glob            mkdir           recv            verbose
bye             hash            mls             remotehelp
cd              help            mput            rename
close           lcd             open            rmdir
ftp> open xxx
Unknown host xxx.
ftp> cd xxx
Not connected.
ftp> get aaa.dat D:\VBA-TEST\aaa.dat
Not connected.
ftp> Not connected.
ftp>

まぁ、ホストにつながってないので、
エラーメッセージでまくりだけど。

/*
 * ３．ftp の open コマンド
*/

open ホスト名　でオープンするんだけど、
通常はパスワードの入力を求められます。

これをかわす方法で、安易なのは、
pas.txtとテキストファイルを作成、中身にパスワードを書いておきます。
999999

パラメータファイルのＯｐｅｎの場所で、
Print #nFNO, "open ftp.xxx.ne.jp <" & ThisWorkbook.Path & "\pas.txt"
と書き、
パスワードがテキストpas.txtから入力したようにみせる
姑息な技もあります。

が、

暗号化されてないパスワードをテキストファイルで残すのは、
チト...イヤ、かなり不安な人も居ると思います。

/*
 * ４．私の失敗
*/

失敗を書かないと最近寝覚めが悪くなった私から、
笑ってしまう失敗談を１つ

D:\test
とか、テストのディレクトリでテストしてＯＫでした。

客先へインストール時は、ヤッパカッコつけたいから、
C:\Program Files
の下にディレクトリを作り、保存しました。

C:\Program Files\Get\Get.xls
と。。。

もうわかりました？
Program Files
ってスペースが空いてるんですよ。

まず、
Shell "ftp -s:C:\Program Files\Get\パラメータファイル"
みたいになり、
あれ？動かない、、、なんてことあったなぁ。

コマンドプロンプト系のプログラムを起動する時は、
フォルダー名のスペースには要注意です。

/*
 * ５．終わりの挨拶
*/

ＦＴＰはこんな感じで、出来ると思います。

Ｌｉｎｕｘのシェルの起動は、わからないけど、
半分でも、１つでも参考になればうれしいけど、、、

拾い読みして、
１つでも何かの参考となれば幸いです。

Ｅｘｃｅｌ／Ａｃｃｅｓｓ大好き、三流プログラマーＫｅｎ３でした。

ＰＳ．できる読者(同様の処置やったこと有る)の回答も待ってます。

フィードバック

VBA系の→[掲示板]←を覗く、質問を書き込む

評価・感想

ページフッター(リンクや広告など)

[三流君(TOP ken3.org へ戻る)]
-- [VBA系TOPへ]
---- [VBA系バックナンバー目次へ移動]
------ [VBAでIEを操作 CreateObject("InternetExplorer.application")]・・・実は当店一番人気、VBAでIEを操作するサンプルです
------ [VBAでOutlookの操作 CreateObject("Outlook.Application")]・・・Outlookを使い、メール関係の処理です
------ [Access から Excel 連携 CreateObject("Excel.Application")]・・・人気のAccessからExcelへデータ書き出しなどです
------ [AccessのUserForm/サブフォームを操作]・・・アクセスでフォームを使ったサンプルです
------ [Accessのレポートを操作]・・・レポートを操作してみました
------ [Access クエリー関係やその他関数]・・・あまりまとまってませんが、スポット的な単体関数の解説です
------ [Excel UserForm(ユーザーフォーム)を操作する]・・・エクセルでユーザーフォームを作成して入力などを行ってます
------ [ExcelからAccessを操作する]・・・ExcelからAccessのマクロを起動してみました、
------ [Excel関係関数、その他]・・・その他Excel関係です
------ [VBAでテキストファイル(*.txt,*.html,*.csv)の操作]・・・テキストファイルを使ったサンプルです
------ [VBA 標準関数関係とその他解説]・・・その他、グダグタ解説してます

広告
-- [通販系の売れ筋広告へ] ←主に楽天やAmazonのランキングです
blog
-- [三流君の作業日記] ← 日々の作業を少々
-- [通販あしあと] ← 通販ページの足跡を一覧で羅列

情報を探す

情報を探すならGoogleかな？

↓Web全体、サポート情報(support.microsoft.com)や三流君VBA(ken3.org)から検索する

あとは、項目別にMSでお勉強かな？
◆ マイクロソフトサイトの歩き方
◇ How-To インデックス
◇ FAQ インデックス
◇ スキルレベル別おすすめコンテンツ
◇ テクノロジマップ
◇ テーマ別技術資料一覧

書籍の購入

Webだけじゃさすがに勉強しきれないので、プログラミング関係の書籍も読んでみては？？

コンピュータ書籍の発送がハヤイ専門店

コンピュータの本・専門店

※種類が豊富で探し易いです。※在庫ありが48時間以内発送が急ぎで資料や書籍がほしい時、とても助かります。
お奨め本の目次を見るだけでも勉強になったり

amazon.co.jpでキーワード別チェック

下記、私が設定したキーワードですが、こんな感じで資料や書籍を探ってみては？
[VBA全体を把握する] -- やはり全体をさらっと見たいですよね。
[SQL関連でＤＢ力UP] -- システムはデータベース設計が重要
[ADO接続を探る] -- VBAなのでADO接続を押さえておく
[Windows APIを探る] -- さらにAPIになて知ってれば強力だ！
[.NETを探る] -- と言っても時代は.NETに流れてるし
プログラミング以外でも知りたいことは多くって、
[人間関係] -- で、客先・上司、まわりに気を使い。
[プログラマーの自己啓発] -- プログラムだけじゃなくいろいろと向上したいよ
[コーチング・育成] -- 先輩になったら後輩(部下)の面倒をみてね。
そんなこんなでプログラマーっていろいろと大変なんだってば・・・