渡り鳥で、この時期日本に。人懐こいそうですが、５ｍ以上は近寄らせてくれませんでした。ささっと駐車場の車の下に隠れちゃった……っていうか、隠れるんだ車の下に。
ちなみに、石を打ち合わせるような鳴き声から「火焚」といわれるそうです。
スポンサーリンク
冬の野鳥(1) メジロ
東京の積雪から数日、まだ雪が残っていますが、ちょっと歩いてみたら、けっこう野鳥を見つけることができました。
何をしているのかな？と思ったら、帰って拡大してみると羽虫をつかまえているみたい。Wikiを見ると、ふだんは食べない虫を子育てしているとつかまえると書いてありました。なるほどねぇ。
スポンサーリンク
選択したファイルを、クリップボードの文字列にrenameする
複数ファイルを一気にリネームしたい。
というわけで作りました。
全部リネーム.bat
——————
:rem Thanks http://scripting.cocolog-nifty.com/blog/2006/09/post_52b4.html
@MSHTA.EXE vbscript:Execute(“s=clipboardData.getData(“”text””):If Not IsNull(s) Then CreateObject(“”Scripting.FileSystemObject””).GetStandardStream(1).Write(s):End If:close:”) >tmp.txt
SET /P fname=<tmp.txt
:loop1
if .%1 ==. GOTO end
rename %1 “%fname%%~x1”
SHIFT
GOTO loop1
:end
del tmp.txt
これのショートカット作成し、「送る」フォルダにショートカットを入れておけば、ファイルを選択して「送る」で、一気にリネームできる……はず。
ただし重複のチェックもエラー表示も出ないので注意が必要。
なお、クリップボードの取得はこちらを使わせていただきました。ありがとうございます
Windows Script Programming
コマンドラインからクリップボードを使う。
