大量のフォルダ内画像を自動的に指定枚数ごとにフォルダ分けするソフトはあ

大量のフォルダ内画像を自動的に指定枚数ごとにフォルダ分けするソフトはありますか？

ひとつのフォルダの中に１０００枚のファイルがあったとして、１つ５０枚が収録されたフォルダを２０フォルダ作ってくれるような感じのソフトです。

画像を閲覧しながら分類していくようなソフトは見つかったのですが、こういった大雑把な要求に応えるソフトはありませんかね・・・

No.1 ベストアンサー 回答者： misatoanna 回答日時： 2010/07/01 09:42

フォルダごとに振り分けるファイルを指定しなくてよいのでしたら、Excelで

次のようなマクロを実行するのはいかがでしょうか。

[Alt]+[F11]で開くウィンドウの[挿入]-[標準モジュール]で表示される画面に
以下を記述(コピペ)したら、そのウィンドウを閉じます。
------------------
Sub PicFuriwake()
Dim FPath1, FPath2, FName, i, n
Application.ScreenUpdating = False
FPath1 = Range("A1").Value & "\"
FName = Dir$(FPath1 & "*.*")
Do While FName <> ""
On Error Resume Next
i = i + 1
FPath2 = FPath1 & Format(i, "000")
MkDir FPath2
For n = 1 To 50
FileCopy FPath1 & FName, FPath2 & "\" & FName
'Kill FPath1 & FName
FName = Dir$
Next
Loop
Application.ScreenUpdating = True
End Sub
------------------
↓
セルA1に画像ファイルが保存されているフォルダのフルパスを入力します。
　例） C:\MyFiles\Pics\旅行
↓
メニューの[ツール]-[マクロ]-[マクロ]から PicFuriwake を選択して実行
します

元ファイルは残すようにしています。
元ファイルを削除してもよい場合は、下から６行目の Kill の前の(')を
削除してください。（テスト後に）

この回答へのお礼

excelが大の苦手なのですが、教えていただいたとおりで出来ました！
本当にありがとうございます。

お礼日時：2010/07/02 22:30