大量にファイル名変更するには？

質問

たとえば、デジカメのデータが0001.jpg～0100.jpgというようにファイル名が付いているものに、0001～0100に対応したファイル名をEXCEL等に書いておき、そのファイル名に一括して変更できるようなソフトはないでしょうか？できればフリーウェアであれば助かります。ご存知の方教えて下さい。

回答No.5

Hayashi_Trek · ベストアンサー

エクセルを使ってバッチファイルを作る方法です。
１．エクセルSheetに文字列表示の３列を用意する。
２．A列にはRenameのコマンド文字列、B列には元のファイル名、C列には新しいファイル名を入力する。
　各列の幅は、A列は4以上、B列C列はファイル名以上の長さにすること。
　（例）--------------------（例）
　行 A列 B列 C列
　1 REN 001,jpg NewName1.jpg
　2 REN 002.jpg NewName2.jpg
　3 REN 003.jpg NewName3.jpg
　（例）--------------------（例）
３．このSheetを名前を付けて保存する。
　ファイルの種類＝テキスト（スペース区切り）(*.prn)
４．保存したファイルの拡張子を「prn」から「bat」に変更する。
　（例）Book1.prn → Book1.bat
５．Book1.batを実行する。
　（ダブルクリックする、またはコマンドプロンプトで実行）

補足

御回答ありがとうございます。まさしく、やりたいことができて感激です。ひとつ、ご質問なのですが、このバッチファイルは、バッチファイルが存在する同じディレクトリー内のファイルのみ名称変更対象としていると考えてよろしいでしょうか？もしくは、HDD内の全てのファイルを検索してリネイムしてしまうのでしょうか？
予期せぬファイルまでリネイムされてしまうと困るものですから…。
ついでに、ファイル名変更したいファイルのディレクトリー（パス）を指定するオプションなどはあれば教えて頂けると更に助かるのですが…。宜しくお願いします。

回答No.6

Hayashi_Trek

このバッチは、バッチが在るフォルダのファイルのみRenameします。
ファイルのフォルダを指定する場合は、元のファイル名にパスを追加してください。

詳しくは、コマンドプロンプトでRENコマンドのヘルプを見てください。
REN /?

お礼

御回答ありがとうございました。おかげで問題解決しました。

回答No.4

kopepe

たまたまそういう用があり、エクセルのマクロを作成しておりました。
使えたら使ってみてください。

Public Sub ReName()
Dim sFold As String
Dim sNew As String
Dim sOld As String
Dim iRow As Integer

sFold = Cells(1, 1)
If sFold = "" Then Exit Sub
sFold = sFold & "\"
iRow = 2
Do While Cells(iRow, 1) <> ""
sOld = sFold & Cells(iRow, 1)
sNew = sFold & Cells(iRow, 2)
Name sOld As sNew
iRow = iRow + 1
Loop
MsgBox "終了しました", vbOKOnly, "終了"

End Sub

使い方

Ａ１にフォルダ名を入れて下さい。
Ａ２から下は元の名前です。
Ｂ２から下は新しい名前です。
Ａ列にデータがある限り実行しますので、Ｂ列に名前がないとエラーになります。
拡張子も含めておいてください。
マクロを修正すれば、なくてもＯＫです。

ついでに、フォルダ内のファイル名をＡ列に表示するマクロも入れておきます。

Ａ１にフォルタ名はそのままですので、続いて使用することも出来るでしょう。

Public Sub GetFileName()
Dim sFold As String
Dim sFile As String
Dim iRow As Integer

sFold = Cells(1, 1)
If sFold = "" Then Exit Sub
iRow = 1
sFile = Dir(sFold & "\*.*")
Do While sFile <> ""
Cells(iRow, 1) = sFile
sFile = Dir()
iRow = iRow + 1
Cells(1, 3) = iRow - 2
Loop
Cells(1, 2) = "End"
End Sub

お礼

御回答ありがとうございます。エクセルのマクロを使ったことがないもので、少し勉強してから試してみます。ご説明を見る限り、私の望んでいることが出来そうで期待大です。

回答No.3

ONKYQ

http://www.vector.co.jp/vpack/filearea/win/util/file/name/

少し不親切かもしれませんが、このなかからご自身に合うものを探してみて下さい。

お礼

御回答ありがとうございます。いろいろリネームのフリーソフトがあるんですね。参考になりました。ただ、私が求めているのは、外部ファイル（エクセル表）に記した新旧ファイル名の指示に従って一括リネイムしてくれるものなのですが、なかなか見つからないのです。もう少し探してみようと思います。

回答No.2

NOBBB

＞0001～0100に対応したファイル名をEXCEL等に書いておき
って普通にリネームするのと同じでは??

とりあえず、リネームソフト載せておきます。
（見当違いな回答でしたらすみません。）

参考URL：

http://www.vector.co.jp/soft/win95/util/se217399.html

お礼

御回答ありがとうございます。いろいろリネームのフリーソフトがあるんですね。参考になりました。ただ、私が求めているのは、外部ファイル（エクセル表）に記した新旧ファイル名の指示に従って一括リネイムしてくれるものなのですが、なかなか見つからないのです。もう少し探してみようと思います。

回答No.1

cyaba1964

フリーのリネームソフトじゃ駄目ですか？
色々ありますよ。

http://www.vector.co.jp/vpack/filearea/win95/util/file/name/seq/index.html

お礼

御回答ありがとうございます。いろいろリネームのフリーソフトがあるんですね。参考になりました。ただ、私が求めているのは、外部ファイル（エクセル表）に記した新旧ファイル名の指示に従って一括リネイムしてくれるものなのですが、なかなか見つからないのです。もう少し探してみようと思います。