VBA req to rename the folders,subfolders & its files, if it contains any special char

[amb2301]

Hi Friends,
i have a macro, which it will fetch all the folders,subfolder & files into an excel & it will remove all special characters.
I need a help on rename the folder,subfolder & its file names if it contains any special characters (@,#,$) at the begining(only at the starting,not in middle or end).
for better understanding please check the attached snapshot.
Please help me to complete this Task.

[si_the_geek]

Welcome to VBForums

Thread moved from the 'VB.Net' forum to the 'Office Development/VBA' forum.

[Zvoni]

Muahahaha.
Exactly the same here.
http://www.vbforums.com/showthread.p...and-file-names
Looks like an assignment in IT-classes or something.

[westconn1]

http://www.vbforums.com/showthread.p...ht=rename+file
another recent version of the same thing, plenty of reading!!

[Zvoni]

Eh? That's the Thread with my Hardcore-Stab at it

[amb2301]

Hi Friends,
i am using the below code, which is even renaming the folders in Network drives, but its not renaming the sub folders & its files, so could anyone help me to fix this program, as i need it to remove special characters from all subfolders & its files.

Sub File_renaming2()
    Dim objFSO As FileSystemObject, myObj As Object, mySource As Object, Folder As Variant
    Dim newName As String

    Set objFSO = New FileSystemObject
    Set mySource = objFSO.GetFolder("\\Server01\user\docs\new folder")

    For Each Folder In mySource.SubFolders
        newName = Folder.Name
        newName = Replace(newName, "@", " ")  'replace - with space
        newName = Replace(newName, "#", " ")  'replace : with space
        newName = Replace(newName, "$", " ")  'replace ; with space
        newName = Replace(newName, "+", " ")  'replace / with space
        If Folder.Name <> newName Then Folder.Name = newName ' assign new name. the check is to (possibly) ensure you're not processing the same folder twice
    Next Folder
End Sub

[westconn1]

as i need it to remove special characters from all subfolders & its files.

you can not rename the folders sub folders and files in one command, you need to rename each folder and file specifically in turn, that is you need a recursive procedure, whether you use FSO or vba i/o

Sub File_renaming2()
    Dim objFSO As FileSystemObject, myObj As Object, mySource As Object, Folder As Variant
    Dim newName As String

    Set objFSO = New FileSystemObject
    Set mySource = objFSO.GetFolder("\\Server01\user\docs\new folder")
   recurserename mysource

End Sub

Sub recurserename(f As Folder)
Dim itm As Folder, itm2 As File

        For Each itm In f.SubFolders
        recurserename itm
        newName = itm.Name
        newName = Replace(newName, "@", " ")  'replace - with space
        newName = Replace(newName, "#", " ")  'replace : with space
        newName = Replace(newName, "$", " ")  'replace ; with space
        newName = Replace(newName, "+", " ")  'replace / with space
        If itm.Name <> newName Then
            itm.Name = newName ' assign new name. if changed
        End If
    Next itm

    For Each itm2 In f.Files
        newName = itm2.Name
        newName = Replace(newName, "@", " ")  'replace - with space
        newName = Replace(newName, "#", " ")  'replace : with space
        newName = Replace(newName, "$", " ")  'replace ; with space
        newName = Replace(newName, "+", " ")  'replace / with space
        If itm2.Name <> newName Then
            itm2.Name = newName ' assign new name. if changed
        End If
    Next itm2
    
End Sub

make sure to test fully before use, if i got it right, it should rename all files and folders in mysource and below

[amb2301]

Hi Westconn,
Much appreciated!!! Amazing work done by you.
It worked like a charm Tons of thanks to you!!