戻る  □VBAのサロン  □ 使用方法  □ 新着記事  □ 新規に質問する!  □ トピック一覧  □ 検索  □ 過去ログ
[ 最新記事及び返信フォームをトピックトップへ ]
このトピック参照回数 :
ファイル名変更

    [130260] ファイル名変更-

    ■親トピック/記事引用/メール受信=OFF■

    □投稿者/ yuji -(2019/05/17(09:44))
    □U R L/

      すみません。
      エクセル関係でないので恐縮ですが、様々な質問掲示板で質問しているのですが解決しないため、どなたかご存知の方がいらっしゃったら、ご教示ください。

      ファイル名の変更についてです。

      aaa_1-org.jpg
      aaa_2-org.jpg
      aaa_3-org.jpg

      というファイルがあり、これらのファイル名から"-org"を取り除き
      aaa_1.jpg
      aaa_2.jpg
      aaa_3.jpg

      というファイル名に変更したいのですが、
      バッチファイルで

      rename aaa*-org.jpg aaa*.jpg

      と指定して実行してもうまくいきません。
      どのように指定すればいいのでしょうか?

      よろしくお願いします。




    [130261] Re[1]: ファイル名変更-

    記事引用/メール受信=OFF■

    □投稿者/ りぃ -(2019/05/17(11:36))
    □U R L/

      こちらを参考になさったらいかがでしょう?

      バッチファイルでファイル名の末尾を削除する(拡張子は削除しない)
      h ttps://qiita.com/hippocampus-coronatus/items/3e312fe89cfa4648a07c





    [130263] Re[2]: ファイル名変更-

    記事引用/メール受信=OFF■

    □投稿者/ Mike -(2019/05/17(21:20))
    □U R L/

      参考になるかどうか、
      私は昔から Microsoft社の Exploer の代わりに、LightShip Software Inc.の「ファイル管理ツール」の FileVisor7 を使ってまして、此れには[ファイル名文字列の一括置換]という機能が標準で装備されています。




    [130269] Re[3]: ファイル名変更-

    記事引用/メール受信=OFF■

    □投稿者/ Jaka -(2019/05/19(13:18))
    □U R L/
      バッチじゃないし、この質問は一般機能なのか?
      今使ってる動いてるからこれで良いやって言うVBS。
      
      
      'VBSファイルのあるフォルダ
      Set FSO= CreateObject("Scripting.FileSystemObject")
      FPth = FSO.getparentfoldername(wscript.scriptfullname)
      'Kakucyoshi = ".png"
      Kakucyoshi = ".jpg"
      'Kakucyoshi = ".ts"
      
      KK = inputbox(Kakucyoshi & vblf & vblf & "消去文字数を入力してください","右文字消し",3)
      if not isnumeric(KK) then
         msgbox "数字以外"
         WScript.Quit
      elseif KK = "" then
         msgbox "キャンセル"
         WScript.Quit
      end if
      
      cnt = 0
      For each FNM in FSO.GetFolder(FPth).Files
         FFF = FNM.Name
         OldNm = FPth & "\" & FFF
      
         if LCase(Right(FFF,Len(Kakucyoshi))) = Kakucyoshi Then
            if Len(FFF) > KK + 1 + Len(Kakucyoshi) then
               kakikaemoji = Left(FFF,len(FFF) - KK - Len(Kakucyoshi)) & Kakucyoshi
      
               Set objFile = FSO.GetFile(OldNm)
      
               'NewNm =  FPth & "\" & left(FFF,hidari - 1) & Kakucyoshi
               '書き換え後のファイル名はフルパスだとエラー
      
               NewNm = kakikaemoji
               objFile.Name = NewNm
               cnt = cnt + 1
            End if
         End If
      Next
      msgbox Kakucyoshi & vblf & "右数文字消し 終わりました。" & vblf & cnt
      
      


      この記事にはVBAのコードが含まれています。

      緑の太文字→注釈
      茶色の太文字→条件分岐
      赤の太文字→ループ
      青の太文字→その他




    [130270] Re[4]: ファイル名変更-

    記事引用/メール受信=OFF■

    □投稿者/ Jaka -(2019/05/19(13:26))
    □U R L/

      ああ、変更後同名になるファイルがあると、エラーで止まります。
      その辺、その他エラー処理は面倒なんで入れてません。



このトピック内容の全ページ数 / [0]

このトピックに書きこむ
Name/
E-Mail/

└>このツリーのレス記事をメールで受信しますか? YES/ NO/
Title/
URL/
Comment/ 通常モード->  図表モード-> (←の場合適当に改行を入れて下さい)
タグが使用できます。例 ⇒ <font color="blue">文字</font>
解決!!ありがとうございました! 解決       保留中です・・・ 保留        迷宮入りorほかあたって見ます・・ 迷宮入       すいませ〜ん。誰か〜! Help! ←※回答者専用
解決したらチェック       保留(コードテスト中など・・)         解決不可orレスが全く付かなくてほかのサイトに行くときなど・・
削除キー/
(半角8文字以内) 


- Child Forum -
Edit:ゆう-G