ファイル名からフォルダを自動生成して振り分けしてくれるソフト
はありませんでしょうか。
当方、仕事で大量の連番ファイルを扱います。
ほとんどは以下のようなファイル名になっています。
abc.001.jpg
abc.002.jpg
abc.003.jpg
...
qwerty_001.jpg
qwerty_002.jpg
qwerty_003.jpg
...
ファイル名の長さは一意ではありません。
連番前の区切りには「.」ピリオドか「_」アンダーバーが使われます。
これらがひとつのフォルダの中にあるとき、
そのフォルダもしくは必要なファイルを指定することで、
ピリオドもしくはアンダーバーより前のファイル名からフォルダを自動生成して
それぞれの連番を振り分けてくれることのできるソフトです。
ネットでもさまざまなファイル管理ソフトがありますが、
一番求める機能に近いものでも、ファイル名の前方からの文字数で
フォルダ名を指定する必要があるなど、制限がありました。
A 回答 (2件)
- 最新から表示
- 回答順に表示
No.2
- 回答日時:
Excelマクロを作ってみました。
1.Excelを起動し [Alt]+[F11] で開く Visual Basic Editor のウィン
ドウで、[挿入]-[標準モジュール] とたどります。
2.[ツール]-[参照設定] で Microsoft Scripting Runtime を指定しま
す。
3.標準モジュールに下記をコピペして、そのウィンドウを閉じます。
Sub Furiwake() 'ファイル名の連番前の文字列でフォルダを作り分配。
Dim FPath1, FPath2, FName
Application.ScreenUpdating = False
FPath1 = Range("A1").Value & "\"
FName = Dir$(FPath1 & "*.*")
Do While FName <> ""
Select Case InStr(FName, "_")
Case Is > 0
FPath2 = Left(FName, InStr(FName, "_") - 1)
Case Else
FPath2 = Left(FName, InStr(FName, ".") - 1)
End Select
On Error Resume Next
MkDir$ FPath1 & FPath2
On Error GoTo 0
FileCopy FPath1 & FName, FPath1 & FPath2 & "\" & FName
' Kill FPath1 & FName '※
FName = Dir$
Loop
Application.ScreenUpdating = True
End Sub
シートのセル A1 に、画像ファイルのあるフォルダのフルパスを次の
ように入力して、[ツール]-[マクロ]-[マクロ] から Furiwake を指定
して実行します。
入力例: C:\MyFiles\PhotoData\JPGFiles
この入力されたフォルダの中にサブフォルダを作成して振り分けます。
※の行の先頭の Kill の前にある ’を削除して実行すると、元画像
ファイルが削除されてしまいますので、テストはこのまま実行して
ください。
No.1
- 回答日時:
ファイル指定のみだけど、下記が一番近いかなぁ・・・
使い方がイマイチだけど・・・
DirCreator
http://www.vector.co.jp/soft/winnt/util/se373773 …
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- フリーソフト フォルダ、ファイル名の一括変換について 3 2023/03/16 09:23
- PDF PDFを自動添付したメールを送信してくれるツールを探しています。 2 2023/02/07 15:19
- Visual Basic(VBA) Excelのマクロについて教えてください。 作業フォルダ内に2つのファイルがあります。 このファイル 2 2023/07/09 13:40
- Excel(エクセル) 【VBA】フォルダAにある2つのファイルの内1つを、フォルダBへ。もう1つを、フォルダBへ移動したい 6 2022/07/26 08:51
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2023/08/08 11:02
- Excel(エクセル) 【VBA】指定フォルダに格納中のテキストファイルをエクセルで処理し結果のエクセルを新規フォルダに保存 1 2022/03/25 14:19
- UNIX・Linux Ubuntu でinvalid filenameとなるファイルをコピーする方法 3 2023/06/08 22:26
- システム vba シートの追加について 2 2023/05/17 15:58
- その他(ソフトウェア) コマンドプロンプトについて教えてください。 状況: 画像編集ソフト上でネットから保存した画像を使うの 3 2022/05/26 11:14
- Excel(エクセル) ファイル一覧表を使ったファイルの移動 5 2022/08/10 15:37
このQ&Aを見た人はこんなQ&Aも見ています
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
大量のフォルダからひとつのフ...
-
バッチファイルでサーバーのフ...
-
binフォルダーとは?
-
Teraterm scprecvの上書き確認...
-
一括でフォルダと同じ名前にフ...
-
Thunderbirdで社内共有フォルダ...
-
PCのアプリケーションを別のPC...
-
win10の「フォト」で、「次へ」...
-
パソコンのフォルダー内のファ...
-
特定フォルダ内のファイルを自...
-
ビルダーを使ってますがパソコ...
-
DVD Shrinkの一時ファイル?
-
一太郎がイントラで開けません...
-
チームズのチャット画面にファ...
-
virualboxで仮想マシンフォルダ...
-
1つのファイルを複数のフォルダ...
-
コマンドプロンプトでフォルダ...
-
ファイルのサイズを0にする or ...
-
クリップNOTEというソフトを使...
-
leeyesでファイルの読み込みが...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
大量のフォルダからひとつのフ...
-
Thunderbirdで社内共有フォルダ...
-
パソコンのフォルダー内のファ...
-
binフォルダーとは?
-
PCのアプリケーションを別のPC...
-
バッチファイルでサーバーのフ...
-
virualboxで仮想マシンフォルダ...
-
画像・動画データを日付毎のフ...
-
ファイルのサイズを0にする or ...
-
win10の「フォト」で、「次へ」...
-
コマンドプロンプトでフォルダ...
-
一括でフォルダと同じ名前にフ...
-
一太郎がイントラで開けません...
-
ビルダーを使ってますがパソコ...
-
同名のフォルダを検索・削除したい
-
名前の変更ができない動画ファイル
-
拡張子が異なりファイル名が同...
-
「ファイルがオープンできませ...
-
Fast Copy と Fire File Copy ...
-
2つのフォルダ内(サブフォルダ...
おすすめ情報