• 締切済み
  • 困ってます

ファイル名の修正を一度にしたいです。

ファイル名の先頭に【仮】というファイルがたくさんあります。 すべて正式なファイルなので、この3文字だけ削除したいのですが、エクスプローラーでひとつづつダブルクリックして、該当部分だけを削除するのは大変です。 エクセルとかのマクロで全件を一括して削除できないでしょうか?

共感・応援の気持ちを伝えよう!

  • 回答数4
  • 閲覧数57
  • ありがとう数0

みんなの回答

  • 回答No.4

図の様に、 B1: フォルダ名、 B2: 【仮】 と入力して実行して下さい。 Option Explicit ' Sub Macro1()   Dim FileName As String '   FileName = Dir([B1] & "\" & [B2] & "*.*") '   While FileName > ""     Name [B1] & "\" & FileName As [B1] & "\" & Replace(FileName, [B2], "")     FileName = Dir   Wend End Sub

共感・感謝の気持ちを伝えよう!

関連するQ&A

  • ファイル名の一括変換で、先頭の数字を削除したい。

    PCと連結可能なボイスレコーダーを使っています。PCに取り込んだ時に、ファイル名の先頭に自動的に録音された順番の番号が入れられてしまいます。これだけは設定を変えられないようです。しかし、この番号はボイスレコーダーから削除すれば、新しく録音したものはまた1番から番号が振られるようになるので、全く意味がありません。PCに取り込んだファイルをソートしようとすると、先頭の数字が同じものがいくつも出てきてしまって、かえって邪魔なのです。 ファイル名はこんな形式になっています。 001_acrobot_2007_09_12_11_30.dvf 先頭の3文字がボイスレコーダー上での順番を表すもの。その後にユーザー名、録音日時と続きます。 この先頭の3文字(正確にはその直後のアンダーバーも含めて)だけを一括で削除したいのですが、どんなツールを使ったらできますでしょうか? 普段は「極窓」でたいていのファイル名の一括変換は事足りているのですが、先頭の数文字を削除するというのがどうしてもできません。 ファイルの数がたくさんあり過ぎて、一つ一つ先頭の文字を削除することはできそうにないので、とても困っております。よろしくお願い致します。

  • 復数のファイル全てのファイル名の先頭に任意の文字をつけたい

    復数のファイル全てのファイル名の先頭に任意の文字をつけたい 例えば100~999までのファイルがあるとして、 それら全てのファイルの先頭に0を負荷して0100~0999にしたいのですが、 なにか一括で出来るソフトはありますか?

  • ネットワーク上のファイル名の一括変更

    当方、WinXPを使っています。 ネットワーク上にあるファイルの名前を一括変更したいのですが、やり方がわかりません。 具体的には、 13-06m0712L.avi のようなファイル名の先頭の3文字を削除した8文字のファイル名 06m0712L.avi に変更したいのです。 「ファイルを選択して、F2を押してファイル名の変更」はできますが、はじめの120ファイルの修正で疲れました。あと800ファイル程度あるのでうんざりです。単純な規則的な作業なので、賢い方法があると思うのですが、具体的な操作方法がわかりません。

  • 回答No.3
  • imogasi
  • ベストアンサー率27% (4576/16387)

>一度にしたい プログラム(またはコマンドで)行うことになるでしょう。 FSOとVBAでエクセルの、 開発ーVisualbasic-標準モジュール に下記をコピペして実行する。 上記は、現状ファイル名先頭が「血圧」のファイル名を、「血圧値」・・・ に変更する例のものです。 Sub test01() Dim FSO As Object Set FSO = CreateObject("Scripting.FileSystemObject") Set myfiles = FSO.GetFolder("C:\Users\惇\Documents\").Files For Each myfile In myfiles If Mid(myfile.Name, 1, 2) = "血圧" Then MsgBox myfile.Name '拡張子を含む MsgBox "血圧値" & Mid(myfile.Name, 3, Len(myfile.Name) - 2) myfile.Name = "血圧値" & Mid(myfile.Name, 3, Len(myfile.Name) - 2) End If Next End Sub を張り付けて、実行する。 ==== 質問の場合は If Mid(myfile.Name, 1, 2) = "血圧" Then を If Mid(myfile.Name, 1, 3) = "【仮】" Then ーー myfile.Name = "血圧値" & Mid(myfile.Name, 3, Len(myfile.Name) - 2)  を myfile.Name = "" & Mid(myfile.Name, 4, Len(myfile.Name) - 3) に変更し、 多数の該当があるようなので、確認用の、msgbox ・・というコード行を削除して実行する。 参考 https://www.tipsfound.com/vba/18011 VBA ファイル名の取得または変更する ーー コマンドの方は https://www.adminweb.jp/command/file/index3.html ファイル名の変更(REN, RENAME) ワイルドカードを使って複数のファイルの名前をまとめて変更する

共感・感謝の気持ちを伝えよう!

  • 回答No.2
  • msMike
  • ベストアンサー率20% (309/1504)

「この3文字」とは。 左端の決まり切った「仮」と 後の2文字は任意ですか?全角半角もバラバラ?

共感・感謝の気持ちを伝えよう!

  • 回答No.1
  • maiko04
  • ベストアンサー率17% (342/1945)

for %%F in ("*【仮】*.*") do call :sub2 "%%F" goto :EOF2 :sub2 Set Bstr1=%1 set Bstr2=%Bstr1:【仮】=% set Bstr3=%Bstr2:"=% rename %Bstr1% "%Bstr3%" goto :EOF2 :EOF2 これでいいはず。(テストしていないので 適当な場所にコピーしてやってみてください)

共感・感謝の気持ちを伝えよう!

関連するQ&A

  • ファイル名の一括変更ツールについて

    業務上、大量のファイルのファイル名を変更する必要があり、ファイル名を一括変更するツールを探しています。 やりたいことは、ファイル名の特定位置の文字列を一括で変更することなのですが、変更後の文字はファイルによって異なるため、何らかの方法でそれを指定できるツールが必要と思っています。 想定しているのは、例えば以下のような機能です。 ・ファイル名の一部を格納フォルダ名に一括変更する。 例:「XXXX-AAAA-0001.pdf」等がフォルダ名BBBBに格納されていた場合、   BBBB配下のファイルを全て「XXXX-BBBB-0001.pdf」のように変換する。 または、 ・外部ファイル(またはそのツール)に変更前ファイル名と変更後ファイル名を指定して、読み込むことでファイル名を一括変更する。(変更パターンは複数あり) 使用端末はWindowsXPまたはWindows7です。 Excelのマクロ等でも出来そうだと思いますので、実装例等をご紹介いただくことでも問題ありません。 よろしくお願い致します。

  • EXCEL内にあるファイル名を削除する。

    EXCEL内にあるファイル名を削除する。 いつもお世話になっております。 首題の件ですが、EXCELシート(sheet1)のA1:A1000に とあるファイル名(ファイル名は統一されていません。半角英数字のみで、重複なし) がはいっています。 パス-D:\集計\ にそのファイルが入っているのですが A1:A1000に記載しているファイルを削除するマクロをご教授 頂きたいのです。 皆様、宜しくお願いします。 また、厚かましく下記にも別件で質問をしております。 お力添え頂ければ幸いです。 http://okwave.jp/qa/q6170788.html

  • エクスプローラで、ファイル名の先頭の英字が大文字になって困ってます。

    エクスプローラで、ファイルの移動などに伴ってファイル名の先頭の英字が大文字になってしまい、FTPなどで、ホームページのファイルを送るとき、そのまま大文字で行ってしまい、サーバー上では大文字と小文字が区別されるため「ページが見つからない」等のエラーが頻発しています。 FTPの設定で「全て小文字で送る」にする方法もあるのですが、あえて一部大文字としているものもあるため、それもできません。エクスプローラで、ファイル名の先頭の英字が大文字にならないようにする方法がありましたら教えて下さい。または、ファイル名の先頭を一括小文字変換する方法があったら教えて下さい。

  • エクセルのマクロをファイル名で自動実行させたい

    毎度お世話になっております。 エクセル2010で不慣れなマクロを作ったのですが、これを特定の名前のファイル名のBookに一括でコピー?、実行させるような方法はないでしょうか? ファイルを開く時に、マクロが動くようにAuto_Openマクロでやっと動くようになったのですが、ファイル名が「製品名(スペース)〇〇〇」の〇〇〇の付いたエクセルBookを開くときに、このマクロが自動で動くようにする方法は無いのでしょうか? ファイル数が結構あるので、これが出来れば非常に助かるのでお知恵をお貸しくださいませ。

  • ファイル名のソート順について

    ファイルの整頓などで、ファイル名の昇順でソートしたとき 必ず一番上に置きたいファイルの名前の先頭に"*"や"_"を付けるようにしてるいるのですが 一番下に置きたいときは何の文字を使えば良いでしょうか。

  • ファイル名に特定の文字列を含むファイルを開きたい

    セルに「abc」という文字列があります。 このセルをダブルクリックすると、特定のフォルダ内にある abcを含むファイル(たとえば090507 abc)を開く というようなことをしたいのですが、どのようにしたらよいでしょうか。 対象セルはA列です。 たとえばA2に「abc」とあれば、A2をダブルクリックすると 特定フォルダ内のabcをファイル名に含むファイルを開く A3に「xyz」とあれば、A3をダブルクリックすると 特定フォルダ内のxyzをファイル名に含むファイルを開く といった具合です。 文字列の指定はダブルクリック以外の方法でも構いません。 知識がないものでどのようにしたらよいかわかりません。 どなたかお詳しい方、どうぞよろしくお願い致します。 (ごく簡単なマクロの知識はあります)

  • ファイル名の空白を一括で削除したい

    ファイルをアップロードする為にファイル名に含まれている空白を削除したいのです。 例:123 456.jpg → 123456.jpg ファイルが少なければ手作業で空白を詰めればいいのですがファイルが数百点あるので一括で処理できればありがたいのです。 また、ファイル名に含まれる文字列は規則性がなく連番処理やオートコンプリート機能ができずに苦慮しています。 ファイル名を一括で変換するフリーソフトは多数見つけたのですが、ファイル名に含まれる空白を一括で削除するソフトは見つけれませんでした。 どなたかいいフリーソフトをご存知ないでしょうか? フリーソフトを使わなくてもいい方法があればお教え下さい。 ただし、PCにはあまり詳しくないので高度な関数やスクリプトを使用する方法には対応する自信がありません。 なるべく簡単にできると嬉しいのですが・・・。 よろしくお願いします。

  • excelからwordのファイル名を検索してリンクを貼りたいのです。

    excelからwordのファイル名を検索してリンクを貼りたいのです。 1つのexcelファイルの中に数千行のデータが入っています。 そこから、excel1行に対して1つずつ、wordのファイル名にリンクを貼りたいのですが、 excelのデータとwordのファイル名で共通しているのは、excelにあるデータ(ABCDE)に対して、wordのファイル名は(CDEFG)と、全部が共通しているのではなく、3つだけ共通の文字列があるだけです。 (※各A,B,C,D,E,F,Gは文字列。A=日付、B=名前 など。)       関数でできるのか、マクロを組まなきゃいけないのか、それすらもわかりません。 こんな説明でわかりますか? マクロはほとんど初心者なので、詳しく教えて頂けると助かります。

  • ファイル名の先頭文字を入れても開く候補でてこない

    Windows7ではファイルを開くとき、「ファイル名」の欄に 「希望するファイル名の先頭文字」をを入れただけで 「ファイル名」の欄下にその先頭文字とおなじのファイル名の列が出てくるものですが、 なぜか出てこなくなりました。 とってもも不便です。 ご存知の方ご教授ください。

  • ファイル名の末尾にある日時を先頭に持って行きたい

    aaaa(2012.1.29).xxx bbb(2012.1.30).xxx ccccc(2012.1.31).xxx というようなファイルがあるのですが、日時がファイル名の末尾にあるので エクスプローラで日時順でソートが出来ません。 これを一括で末尾の12文字だけ先頭に持っていくような方法はありませんでしょうか? 手順が増えますが、一回ファイル名をテキストに落として変更するやり方でも良いです。