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

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


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

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

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

終了のダイアログ。※移動するファイルがなかった場合(デリミタを含むファイルがなかった場合など)も表示されます。
スクリプト実行後。サブフォルダが作成されており、各サブフォルダの中に対象のファイルが格納されています。

スクリプトはこちらです。メモ帳などに貼り付けて、拡張子vbsで保存し、ダブルクリックすると実行できます。

1行目の"_ページ"を任意のデリミタに変更してください。

このプログラムは、「call main」を削除すると、そのままExcel VBAに貼り付けられます。

関連記事

COMMENTS

名前

Android,6,Canon,2,EF24-105 F4L IS USM,1,Eos 70d,4,EOS Kiss X7,4,Excel,4,GIMP,5,Git,3,Git Bash,3,Inkscape,3,iPhone,1,Kindle,2,Lightroom,1,Office,2,PC,7,PDF,1,SSH,3,ThinkPad,11,ThinkPad R61e,2,ThinkPad X240,4,ThinkPad X260,6,TOEFL,1,TOEIC,4,VBA,6,VBScript,3,VMware player,1,WEB制作,3,Windows,5,Windows 10,2,インターネットバンキング,1,カメラ,8,パソコン周辺機器,1,パソコン部品,2,レビュー,1,レンズ,2,圧縮&解凍,3,英語,7,仮想環境,1,撮影機材,6,雑感,2,子育て,3,資格,13,情報処理技術者試験,5,中古,4,電子書籍,2,動画,2,簿記,2,
ltr
item
勉強とガジェット: VBScriptでファイル名の前半を使ってフォルダ作成&移動する
VBScriptでファイル名の前半を使ってフォルダ作成&移動する
https://4.bp.blogspot.com/-OHufz7XX7LU/Ws3na6qMsFI/AAAAAAACQWc/TsTlyFSYan8G9DNKhqkvU9dyJGlw_H2NgCLcBGAs/s320/beverage-board-bread-669734.jpg
https://4.bp.blogspot.com/-OHufz7XX7LU/Ws3na6qMsFI/AAAAAAACQWc/TsTlyFSYan8G9DNKhqkvU9dyJGlw_H2NgCLcBGAs/s72-c/beverage-board-bread-669734.jpg
勉強とガジェット
http://tanaka-misaki.blogspot.com/2018/04/vbscript.html
http://tanaka-misaki.blogspot.com/
http://tanaka-misaki.blogspot.com/
http://tanaka-misaki.blogspot.com/2018/04/vbscript.html
true
8692194293250221214
UTF-8
Loaded All Posts Not found any posts VIEW ALL Readmore Reply Cancel reply Delete By Home PAGES POSTS View All RECOMMENDED FOR YOU LABEL ARCHIVE SEARCH ALL POSTS Not found any post match with your request Back Home Sunday Monday Tuesday Wednesday Thursday Friday Saturday Sun Mon Tue Wed Thu Fri Sat January February March April May June July August September October November December Jan Feb Mar Apr May Jun Jul Aug Sep Oct Nov Dec just now 1 minute ago $$1$$ minutes ago 1 hour ago $$1$$ hours ago Yesterday $$1$$ days ago $$1$$ weeks ago more than 5 weeks ago Followers Follow THIS CONTENT IS PREMIUM Please share to unlock Copy All Code Select All Code All codes were copied to your clipboard Can not copy the codes / texts, please press [CTRL]+[C] (or CMD+C with Mac) to copy