ファイル名によりファイルをフォルダに自動分類するソフト

質問

デジカメ写真の整理をしています。
デジカメの写真ファイルの名前を自動リネームするソフトで年月日時分秒というようにリネームしています。
これらのファイルを年月日という名前のフォルダに自動的に分類できるソフトを探しています。

写真ファイルを分類ソフトに入力すると、自動的に年月日を名前とするフォルダを作成して分類されるようなソフトがあると良いのですが。

回答No.1

misatoanna · ベストアンサー

エクセルのマクロで処理されたらいかがでしょうか。

1.例えば、C:\MyFiles\Photo　という名前のフォルダに写真をすべて入れます。
　各写真の名前は"年月日時分"で表わされ、0506120925.jpg　の形式とします。
2.エクセルシートのA1に写真ファイルの入っているフォルダ名をフルパスで入力
　します。（上の例ですと、C:\MyFiles\Photo）
3.[Alt]+[F11]で、Visual Basic Editor を起動し、[挿入]-[標準モジュール]で
　開く画面に、以下をコピー・貼り付けして実行します。
　'
　Sub Furiwake()
　　　Dim FPath1, FPath2, FName
　　　Application.ScreenUpdating = False
　　　FPath1 = Range("A1").Value & "\"
　　　FName = Dir$(FPath1 & "*.jpg")
　　　Do While FName <> ""
　　　　　FPath2 = Left(FName, 6)
　　　　　On Error Resume Next
　　　　　MkDir$ FPath1 & FPath2
　　　　　FileCopy FPath1 & FName, FPath1 & FPath2 & "\" & FName
　　　　　Kill FPath1 & FName
　　　　　FName = Dir$
　　　Loop
　　　Application.ScreenUpdating = True
　End Sub
　'
＜処理内容＞
　A1に入力したフォルダ内のファイルを順次チェックし、その名前(年月日部分)の
　フォルダがあればそこにコピーし、無ければ新しく作成してコピーします。
　新規フォルダは、A1に入力されたフォルダの中に作られます。
　なお、元ファイルは削除されますので、テストされる場合はコピーで行なうほう
　がよいでしょう。

お礼

ご回答有り難う御座います。
いろいろ調べてみたのですが、自分なりにカスタマイズしようとすると結構大変でした。
まだもっともっとVBの知識が私には必要です。