excel vbaを使用してフォルダ内のすべてのファイルの名前を変更

Question

フォルダ内のすべてのファイルの名前を変更するには、アンダースコアの前に何かを置き換え、エラー時に

Answer 1

Sub RenameFiles() 
Const FolderLoc = "P:\yourfolder\" 
Dim x As Long 
x = 1 
Dim s As String 
s = Dir(FolderLoc & "*.*") 
Do While s <> "" 
    Name FolderLoc & s As FolderLoc & x & Right(s, Len(s) - (InStr(s, "_") - 1)) 
    s = Dir() 
    x = x + 1 
Loop 
End Sub 

Answer 2

順 でバックアップしたファイルと場所の名前を変更するには「MACROサブRename2（）

Dim objFSO As Object 
Dim objFolder As Object 
Dim objFile As Object, abc As Object 
Dim i As String 
Dim s As String, dest As String 

dest = "H:\Automation\outputs\" 

Set objFSO = CreateObject("Scripting.FileSystemObject") 
FolderLoc = dest 


Set objFolder = objFSO.GetFolder(dest) 
'MsgBox objFolder 

i = 1 
s = Dir(FolderLoc & "*.*") 

次

'loops through each file in the directory and prints their names and path 
For Each objFile In objFolder.Files 

    Do While (InStr(s, "_")) > 0 
     'MsgBox s 
     'Name OldFile as NewFile 

     Name FolderLoc & s As FolderLoc & i & "." & Right(s, Len(s) - (InStr(s, "_") + 2)) 
     s = i & "." & Right(s, Len(s) - (InStr(s, "_") + 2)) 
     'MsgBox s 
     'abc = Name FolderLoc & s As FolderLoc & "(" & i & ")" & Right(s, Len(s) - (InStr(s, "@_@") + 2)) 
     'i = i + 1 
    Loop 
    i = i + 1 
    s = Dir() 

Next objFile 

エンド私のサブ