- ベストアンサー
スキャンした画像を日付別のフォルダに保存してくれるソフト
スキャンした画像を、取り込んだ日付のフォルダに自動的に保存してくれるソフト（できればフリーソフト希望です）をどなたかご存知ないでしょうか？ 大抵の画像管理ソフトは、規定のフォルダの中に全ての画像ファイルが保存されていますが、そうではなくて、 例えば6月10にスキャンした2枚の画像と6月21にスキャンした3枚の画像を、以下のようなパスで保管したいと考えています。 画像１)My Document\My Picture\Scan\20050610\Scanfile001.jpg 画像２)My Document\My Picture\Scan\20050610\Scanfile002.jpg 画像３)My Document\My Picture\Scan\20050621\Scanfile001.jpg 画像４)My Document\My Picture\Scan\20050621\Scanfile002.jpg 画像５)My Document\My Picture\Scan\20050621\Scanfile003.jpg （日付フォルダまでのパスはあくまでサンプルであり、実際にはどのようなパスでも構いません） スキャン→保存した画像ファイルを、日付フォルダ毎に一括でデータベースに取り込みたいので、「ファイル名+日付.jpg」といった管理では不十分なのです。 また、画像ファイルはスキャンのみで、ファイルの取込は考えていません。 Vector等で色々探してみたのですが、数が多すぎてこれといったものを見つけることができません。 どなたか良いソフトをご存知の方がいらっしゃれば、教えて頂けませんでしょうか。 よろしくお願いします。
- bucchukun
- お礼率70% (12/17)
- その他(ソフトウェア)
- 回答数4
- ありがとう数4
- みんなの回答 （4）
- 専門家の回答
質問者が選んだベストアンサー
その他の回答 (3)
＃１です。若干補足すれば、データベースで １．指定されたフォルダに新規追加されたファイル名を取得 ２．日付別に表示 ３．対象ファイル名にチェック（何らかのフラッグ） ４．チェックされたファイルをデータベースに取り込み は、簡単にできます。ちなみに４．の処理はお奨めできませんが。
お礼
お返事ありがとうございます。 残念ながら、私の使っているDBソフトではそのような高度な処理ができません・・・。 色々とアドバイスありがとうございます。
- misatoanna
- ベストアンサー率58% (528/896)
こんにちは～。 Excelで処理するものですが、遊びで作ってみました。 スキャナから直接振り分けることはできませんが、スキャンして１つのフォルダの 中に格納してあるすべてのファイルを日付で振り分け、Scanfile001.jpg の形式の 名前に変更します。 なお、日付名のフォルダは、元フォルダの中のサブフォルダとして作成されます。 1.[Alt]+[F11] で Visual Basic Editor を起動します。 2.[ツール]-[参照設定] で Microsoft Scripting Runtime にチェックを入れます。 3.[挿入]-[標準モジュール] で開かれる画面に下記をコピペします。 4.Visual Basic Editor を閉じます。 ' Sub Furiwake() Dim FPath1, FPath2, FName, i, FDate Dim FLD As Folder, FSObj As New FileSystemObject Application.ScreenUpdating = False FPath1 = Range("A1").Value & "\" FName = Dir$(FPath1 & "*.*") Do While FName <> "" FDate = FileDateTime(FPath1 & FName) FPath2 = WorksheetFunction.Substitute(Mid(FDate, 1, InStr(FDate, " ") - 1), "/", "") On Error Resume Next MkDir$ FPath1 & FPath2 Set FLD = FSObj.GetFolder(FPath1 & FPath2) i = FLD.Files.Count + 1 FileCopy FPath1 & FName, FPath1 & FPath2 & "\" & "Scanfile" & i & ".jpg" Kill FPath1 & FName FName = Dir$ Loop Application.ScreenUpdating = True End Sub セルA1に、スキャンしたファイルの入っているディレクトリ名をフルパスで入力して から、マクロを実行します。（入力例： C:\MyFiles\GraphicData\Scan ）
お礼
お返事遅くなりましてすいません。 素敵なスクリプトありがとうございます＾＾ 思っていた結果が出るので、活用させていただきたいと思います。 ところで、スクリプトのあるExcelファイルをダブルクリックするだけで、このスクリプトが実行されるようにすることは可能なんでしょうか？ご存知であれば教えていただければ幸いです。
>データベースに取り込みたい データベースに取り込んで管理すれば、日付フォルダに分類されている必要がないと考えますが？ 数千枚の画像（主として写真）をデータベースで管理しています。番号が巡回重複するため、月毎ではフォルダを変更していますが、それで充分で、なんの不都合もありません。勿論日付のみならず、時刻（必要があれば分単位）で検索できるようになっています。
補足
お返事ありがとうございます。 教えていただいた内容は、画像をデータベースに取り込んだ後の話だと思うのですが、私が目的としているのは「どのスキャンされたファイル（画像）をデータベースに取り込めばよいのかがハッキリわかるようにする」事なのです。 画像の取り込みは１日１０枚程度毎日行われるので、例えば月毎のフォルダ分けでは、今日はどのファイルを取り込んでよいのか分かりにくいのではないかと考えている次第です。
お礼
素晴らしい！！ これでやりたいことができるようになりました！ ご丁寧な回答に感謝します。ありがとうございました＾＾