Set a folder path to rename all files instead of folder pickup method

[randaubienghoc]

Hi everyone,

Could you please help me to revise the code in the Excel file so that I can set a folder path and then all files in the folder can be renamed?: Rename-1.7z

In the file that I obtained from the Internet, the author used the method to manually navigate a folder and select multiple files in the folder to rename. The file purpose is to rename filenames to VBA supported characters.

I preferred to using a defined folder path but I do not figure it out. I hope you guys can help me. Thank you.

 

[randaubienghoc]

No. I don't know, is this even possible or not? You may have to change the entire code to do that.

Well then thank you so much for support, it is still great for me. I will research how to auto press OK =))

 

[mehidy1437]

Keep posted, if you have a solution. Hope some experts will see this issue & will say something on this.

 

[randaubienghoc]

Hi @mehidy1437 solution found :D

Sub Main()
On Error Resume Next
    Dim SourceFile As String, TargetFile As String
    Dim Path As String
            Path = "C:\Users\Admin\Desktop\Rename\" 'change the path
            With CreateObject("Scripting.FileSystemobject").getfolder(Path)
                For Each Fi In .Files
                    SourceFile = Fi.Path
                    TargetFile = Path & "\" & SourceToDest(Fi.Name, 1, 5)
                    LoaiDauFile SourceFile, TargetFile
                Next
            End With
End Sub

 

[mehidy1437]

That's great. Glad to know that you have got it.