ＦＴＰ -n オプションとuserコマンド

メルマガ発行内容

＜ＦＴＰ -n オプションとuserコマンド＞
こんにちは、三流プログラマーＫｅｎ３です。

今回は、いきなりクレームもらったので、即発行です。
前回テストでＦＴＰの起動テスト
を軽く書いたんだけど、
クレームもらいました。

/*
 * １. クレームのメールは勉強になる。
*/

In message "-n と user 使えよバカ",
s***@********.ne.jpさん wrote...
 >ここ見ろ-->http://www.zdnet.co.jp/help/tips/linux/l0462.html 
 >-n と user 使えよバカ
--

http://www.zdnet.co.jp/help/tips/linux/l0462.html
見ました、勉強になります。

ftp -n
とやると、ログインを聞いてこないので、
user ユーザ名 パスワード
でログイン出来るんですね。

速いなぁ一流読者のレスは。
＊できたら掲示板に書いてほしかったけど。

/*
 * ２．ftp -n -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, "open plaza14.mbn.or.jp" 'openホスト名
    Print #nFNO, "user ken3 XXXXXX←パスワード"       'userコマンド ユーザー名 パスワード
    Print #nFNO, "cd www"
    Print #nFNO, "pwd"
    Print #nFNO, "get index.html " & ThisWorkbook.Path & "\index.html"

    Close #nFNO  '開いたら閉じようね
    
    'shellでＦＴＰを起動 -nのオプションを付ける
    Shell "ftp -n -s:" & strPNAME

End Sub

テストプログラム、変更しました。
変更ヶ所は、
user コマンドの追加
と
ftp -n 
と−ｎのオプションを付けました。

/*
 * ３．実行結果
*/

パスワードは消しておいたけど。無事動作しました。

ftp> open plaza14.mbn.or.jp
Connected to plaza14.mbn.or.jp.
220 DREAM*PLAZA FTP Server
ftp> user ken3 ****←パスワード
331 Password required for ken3.
230 User ken3 logged in.
ftp> cd www
250 CWD command successful.
ftp> pwd
257 "/www" is current directory.
ftp> get index.html C:\tmp\vba025\index.html
200 PORT command successful.
150 Opening ASCII mode data connection for index.html (470 bytes).
226 Transfer complete.
ftp: 481 bytes received in 0.28Seconds 1.72Kbytes/sec.
ftp> 200 PORT command successful.
150 Opening ASCII mode data connection for index.html (470 bytes).
226 Transfer complete.
ftp: 481 bytes received in 0.32Seconds 1.50Kbytes/sec.
ftp>

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

読者のレスの速さにびっくり。
Ａｎｄ
http://www.zdnet.co.jp/help/tips/linux/l0462.html
と、処理方法はいろいろあるんですね。

Ｌｉｎｕｘのシェルの起動もヨロシクです。
＊三流作者さん人に任せないで、自分で調べろって、、、

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

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

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

ページフッター

ここまで、読んでいただきどうもです。ここから下は、三流君のホームページの紹介・案内です
目的の情報が見つかったか？少々心配しつつ、、、

種類別のリンク や 広告など

Blogとリンク:[三流君の作業日記]/ [VBAやASPのサンプルコード]/ 広告-[通販人気商品の足跡]