ファイルを複製するスクリプト 2014-07-24 (Thu) 23:13

X-Finderで、選択したファイルを複製するスクリプト。
選択したファイル名の末尾に日付・時刻を付加して同一フォルダに複製する。
複数選択可。

var shell = new ActiveXObject("WScript.Shell");
var fso = new ActiveXObject("Scripting.FileSystemObject");

var cSel = WScript.Col(WScript.Env('Selected'));
var addstr = '_' + WScript.Env('%DateTime:yyyymmdd_hhmmss%');
for(var i = 0; i < cSel.Count; i++){
var ext = fso.GetExtensionName(cSel.Item(i));
var basename = fso.GetBaseName(cSel.Item(i));
var path = WScript.Env('Current') + '\\' + basename + addstr + (ext?('.' + ext):'');
if(fso.FileExists(cSel.Item(i))){
WScript.Exec('copy: "' + cSel.Item(i) + '" /t "' + path + '" /r');
}
}
関連記事

コメントの投稿

管理者にだけ表示を許可する

注意事項
基本的にこのブログはブログ主の備忘録です。

ブログの内容にはブログ主の主観や時には正確でない情報が含まれていることもあります。書いてある内容がすべての環境にあてはまることを保証するものでもありません。

また、過去の記事は現時点で既に陳腐化していることもあります。

その辺をご理解の上で当ブログ内に書いてあることを試す場合は自己責任でお願いします。

記事内容の誤りの指摘、疑問点の回答などコメント頂けると助かります。
カレンダー
09 | 2017/10 | 11
1 2 3 4 5 6 7
8 9 10 11 12 13 14
15 16 17 18 19 20 21
22 23 24 25 26 27 28
29 30 31 - - - -
ブログ内検索
カラーコードチェッカ
カラーコードの確認
入力例) #ffffff | blue
カテゴリ
最新記事
最新コメント
最新トラックバック
リンク
ブロとも申請フォーム

この人とブロともになる

メールフォーム

名前:
メール:
件名:
本文: