超適当 ReName (VBS)

こちら、フォルダーをドロップ一発でリネームしてしまう優れものVBS。 ※ただし直層のみです。たまに1000番から始まることある(汗;)。何回か繰り返すと1番からに戻ります。

Dim I,fso,PH,f,f1, fc, s, fs, fcs, f1s ,f2, fcc, f3, f2s,exn,fms,nam,a,xRan,NeNu,Moj Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next Set fso = CreateObject("Scripting.FileSystemObject") Set f = fso.GetFolder( PH ) Moj=Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") Randomize ' 乱数ジェネレータを初期化します Do Until s = 6 '使用する文字数 xRan = Int((26 * Rnd) + 0) ' 1 ～ 26 のランダムな値を生成します。 If xRan <= 26 then NeNu = NeNu + Moj(xRan) End if s = s + 1 Loop fspec = f.path &"\" Set f = fso.GetFolder(fspec) Set fc = f.SubFolders a = 0 For Each f1 in fc a = a+1 f1.name = Lcase(NeNu) & "(" & a & ")" Next msgbox "サブフォルダー てきとうリネーム完了!!　"

・・と、もうひとつ。ファイルの拡張子を指定してリネームしてしまう優れものVBS。こちらも直層のみです。

Dim Shell,fs,fpath,exname,onlynum,f,fl,flpath,xlist(9999),ex,i,n,numd,named,dot,xRan, Moj, s, NeNu Set objArgs = WScript.Arguments For I = 0 to objArgs.Count - 1 PH = objArgs(I) Next fpath = PH exname = "jpg" Moj=Array("A","B","C","D","E","F","G","H","I","J","K","L","M","N","O","P","Q","R","S","T","U","V","W","X","Y","Z") Randomize ' 乱数ジェネレータを初期化 Do Until s = 6 xRan = Int((26 * Rnd) + 0) ' 1 ～ 26 のランダムな値を生成 If xRan <= 26 then NeNu = NeNu + Moj(xRan) End if s = s + 1 Loop if fpath = "" then Wscript.Quit Set fs = CreateObject("Scripting.FileSystemObject") Set f = fs.GetFolder(fpath) i = 0 For each fl in f.files flpath = fl.path ex = fs.GetExtensionName(flpath) If ucase(ex) = ucase(exname) then Set xlist(i) = fs.GetFile(flpath) i = i + 1 End if Next For n = 0 to i-1 Set fl = xlist(n) numd = "(" & n & ")" fl.name =LCase(NeNu) & numd & "." & Lcase(exname) Next msgbox "ご指定の拡張子ファイル てきとうリネーム完了!!　"

ファイル名変更は対象「初期値は "jpg"」にしています。 どちらも乱数でアルファベットを組み合わせ、()付き連番でリネームしています。※9999枚を超えると作動しません。定数値の変更が必要です。

度々同名で保存ができないような作業をしている場合に有効っすよね。 ← どんな ?!

文字数も変更可能なんですが、今のところは、同名ファイルやフォルダーは発生していないようなので最短希望で6文字初期値でした。

// PS : あまり必殺でもないのですが・・ ///////////
これまで必殺シリーズでアップしてきたアイテムと同様の取り扱いです。スクリプトの知識のある方のみ自己責任でお願い致・・

コメント 3

ワタシはダメね…　( p_q) ｼｮﾝﾎﾞﾘ
by nico (2007-05-23 07:08) 

nicoさま、ナイスコメント感謝です。
WindowsXPだと知識がなくても動作はするはずなんですけどね。

まれに理由不明のクラッシュとかあるので、そんな時、ハード壊さないうちにループとか停止させないと困ることあるんですよー。　それだけです。　

超、無責任でした。^^;
by うっぴぃ〜 (2007-05-23 11:22) 

(。・_・。)２ｋさま、xml_xslさま、ナイス感謝です。
by うっぴぃ〜 (2007-05-25 08:27)