キャンペーン実施中!日本ファースト証券資料請求でCOCO壱番館500円飲食券を1枚プレゼント
↓より資料請求いただき、こちらのフォームより(1)資料請求日、(2)送付先の住所・お名前を連絡ください

更新されたファイルをアップ ftp半自動化

更新されたファイルのみをftpでアップします。今までホームページなどのアップロードに対話形式のffftpとかでいちいち更新ファイルを指定している方など、大幅な効率化が期待できます
■動作
・WSHのシェルでアップするファイルのftpのパラメタを作成しftpを起動
・アップするファイルのftpのパラメタはつぎのとおり

最初の実行	全ファイルをアップロード	mput *.*
2回目以降の実行	直前の実行以降に更新されたファイルをアップロード	put index.htmとかを並べます

■Windows/XP,IE6で動作確認済み
■使いかた
1.拡張子.vbsで適当なファイルを作成する
2.このvbsファイルをエディタで開く
3.下記ソースをコピー、上記で開いた.vbsのファイルに貼り付ける
4.貼り付けたソース中1-5行目にFTPのサーバー、ユーザＩＤ、パスワード、サーバ側のディレクトリ、アップするファイルがあるフォルダを指定する
5.保存・終了する
6.このvbsを実行（ダブルクリック）
7.ftpが実行される

■ソース
ftp_saerver="" '←FTPのサーバーを指定 ftp_user="" '←ユーザＩＤを指定 ftp_passwd="" ' ←パスワードを指定 ftp_server_dir= "" '←サーバ側のディレクトリを指定 folderpath = "" '←アップするファイルがあるフォルダをこのVBSを置いたフォルダからの相対で指定する。同じフォルダの場合このままで set fs = CreateObject("Scripting.FileSystemObject") If (fs.FileExists("./up_ftp.txt")) Then Set src = fs.Getfile("./up_ftp.txt") last_date=src.DateLastModified else last_date="" end if Set oTs1 = fs.OpenTextFile("up_ftp.txt",2,true) oTs1.WriteLine ftp_saerver oTs1.WriteLine "user " & ftp_user & " " & ftp_passwd oTs1.WriteLine "cd " & ftp_server_dir if last_date="" then if folderpath<>"" then oTs1.WriteLine "lcd " & folderpath oTs1.WriteLine "mput *.*" else if folderpath="" then folderpath="./" else folderpath="./" & folderpath & "/" end if set folder = fs.GetFolder(folderpath) for each a in folder.Files if a.DateLastModified > last_date then oTs1.WriteLine "put " & folderpath & a.name end if Next end if oTs1.WriteLine "close" oTs1.WriteLine "bye" oTs1.close Set WSHShell = WScript.CreateObject("WScript.Shell") WSHShell.Run "ftp -n -s:up_ftp.txt"

■制限事項（作者が分かっている範囲）
・同じフォルダ内にup_ftp.txtの名前のファイルを作成します。都合が悪い場合、シェル中のup_ftp.txtの名前を変更してください
■免責うんぬん
・本VBSによる使用者の損害どうのこうの補償は作成者は一切関知しません
　使用者の責においてご利用ください
質問・要望はこちらから
こちらのオークションでプログラミングの書籍を出品してます