VBScriptでファイル名の前半を使ってフォルダ作成＆移動する

下記のように、決まった区切り文字（デリミタ）を含むファイルがたくさんあるフォルダを指定すると、デリミタ前をサブフォルダの名前として作成し、対象のファイルを作成したサブフォルダに移動します。

スクリプト実行前。これを「_ページ」をデリミタとして、「こころ」「吾輩は猫である」「坊ちゃん」の各フォルダに対象のファイルを振り分けます。

下記のスクリプトをメモ帳などに貼り付けて、拡張子vbsで保存、ダブルクリックして実行します。最初のダイアログでフォルダを選択します。

確認のダイアログが表示されます。スクリプトの実行は取り消しできないので、よく確認してから「はい」をクリックしてください。「いいえ」をクリックすれば実行せずに終了できます。
本ブログラムの実行結果に作者は責任を持ちません。動かしてはいけないファイルがあるフォルダは絶対に指定しないでください。ファイルを移動できない場合もありえます。また、大量のファイルがあるフォルダを指定すると、長い待ち時間が発生したりPCがフリーズしたりする可能性があります。