[[20230921092449]]　『サブフォルダも含めた名前の変更』（みぃ）　ページの最後に飛ぶ

『サブフォルダも含めた名前の変更』（みぃ）

Sub folder_name_change()

    Dim folder_path As String
    Dim j As Integer

    folder_path = Cells(2, 1) & "\"

    j = 1

    Do Until Cells(j + 3, 1) = ""
        Name folder_path & Cells(j + 3, 1) As folder_path & Cells(j + 3, 2)
        j = j + 1
    Loop

End Sub

A2には対象のフォルダ名
A3以降のA列には変更したいフォルダの名前、
B3以降のB列には変更後のフォルダの名前が入力されていて該当するものは変更されます。

この処理をサブフォルダにも全て行いたいのですが、どのようなコードにすればいいでしょうか。

＜使用 Excel：Excel2013、使用 OS：Windows11 ＞

 コードを修正する必要はなくて、A列,B列に入力するフォルダ名の方で対応するのが簡単ではないでしょうか

   |    A       |      B  
　1|            |
　2| D:\AAA\    |
　3|            |
　4| BBB        |  newBBB
　5| newBBB\CCC |  newBBB\newCCC
　6| newBBB\DDD |  newBBB\newDDD
　 のような感じ
　
　 上から順に処理されるので、
　 |    A       |      B  
　1|            |
　2| D:\AAA\    |
　3|            |
　4| BBB\CCC    |  BBB\newCCC
　4| BBB\DDD    |  BBB\newDDD
　4| BBB        |  newBBB
　 としてもいいです　
（´・ω・`） 2023/09/21(木) 10:54:46

コメント返信：

[ 一覧(最新更新順) ]

[[20230921092449]] 『サブフォルダも含めた名前の変更』（みぃ） ページの最後に飛ぶ

[[20230921092449]]　『サブフォルダも含めた名前の変更』（みぃ）　ページの最後に飛ぶ