拡張子小文字変換 - X-Finderスクリプト 2011-02-06 (Sun) 22:59

ファイルの拡張子を小文字に変換するスクリプト。

デジカメで撮ったデータの拡張子が大文字になっててなんか気持ち悪いので、PCに取り込む際に拡張子を小文字に統一することにした。
ファイル名を一括変更するツールも高機能で便利なものがたくさんあるようだが、X-Finderから実行するにはコマンドラインで使えないといけないし、探すの面倒だし、ってな訳でスクリプトでやることにした。
X-Finderの右クリックにスクリプト登録し、変換したいファイルを選択して、右クリック一発実行。んー便利。めでたしめでたし。

しかし右クリックにいろいろ登録しすぎてちょっとカオスになってきたなぁ。そのうち整理せねば。

var ForReading = 1, ForWriting = 2, ForAppending = 8;
var TristateTrue = 0, TristateFalse = -1, TristateUseDefault = -2;

var sExt;
var oShell = new ActiveXObject("Shell.Application");
var oFs = new ActiveXObject("Scripting.FileSystemObject");
var cSel = WScript.Col(WScript.Env('Selected'));
var oFolder = oShell.NameSpace(oFs.GetParentFolderName(cSel.Item(0)));

for(var i = 0; i < cSel.Count; i++){
    if((sExt = oFs.GetExtensionName(cSel.Item(i))) != sExt.toLowerCase()){
        oFolder.ParseName(oFs.GetFileName(cSel.Item(i))).Name =
                    oFs.GetBaseName(cSel.Item(i)) + '.' + sExt.toLowerCase();
    }
}

関連記事

コメントの投稿

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

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

ブログの内容にはブログ主の主観や時には正確でない情報が含まれていることもあります。書いてある内容がすべての環境にあてはまることを保証するものでもありません。
また過去の記事の情報はそれが参照された時点では既に陳腐化していることもあります。

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

万一何らかの損害が生じても責任は持てませんのであしからず!

記事内容の誤りの指摘、疑問点の回答などコメント頂けると助かります。
カレンダー
02 | 2017/03 | 03
- - - 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
カテゴリ
最新記事
最新コメント
最新トラックバック
リンク
ブロとも申請フォーム

この人とブロともになる

メールフォーム

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