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]

Anyone? (

 

[mehidy1437]

Have a look into this, Renaming File

 

[randaubienghoc]

Have a look into this, Renaming File

Hi @mehidy1437 I just hope to change this
"With Application.FileDialog(msoFileDialogFolderPicker)
.AllowMultiSelect = False
.Show......"

INTO
"...For all files in folder path: C:\test example....."

Code to rename files are already done (For example: "âbcđ" => "abcd") as you could see from my file but I have difficulties to only revise code to apply for a specific folder with all files inside. Hope you could understand me. Thanks.

 

[mehidy1437]

See below & try,

Function LoaiDauFile(ByVal SourceFile As String, ByVal TargetFile As String)
    With CreateObject("Scripting.FileSystemobject")
        .MoveFile SourceFile, TargetFile
    End With
End Function
Sub Main()
On Error Resume Next
    Dim SourceFile As String, TargetFile As String
    Dim Path As String
    With Application.FileDialog(msoFileDialogFolderPicker)
        '.Show 'make inactive
        .AllowMultiSelect = True
        .InitialFileName = "F:\EXCEL FILE\New folder\" 'change the path
        If .Show = -1 Then 'add this 
        For i = 1 To .SelectedItems.Count
            Path = .SelectedItems(i)
            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
        Next
        End If 'add this
    End With
End Sub

 

[randaubienghoc]

Hi @mehidy1437 I tried your code but a blank window popup with no files inside. Please help to check it (

 

[mehidy1437]

Its okay, just press ok. It will do job.

 

[randaubienghoc]

Its okay, just press ok. It will do job.

Yes but it does not work correctly if many files. I do not know why. Here in example, I have 15 files in the folder, 1 file name has not been renamed.
Anyway, do you know how to prevent pop-up window, it is quite inconvenient.
Thank you so much for your help.

 

[randaubienghoc]

Hi @mehidy1437 I tried to close Excel file and reopen the file to run macro again, it works now. However, I still have to press OK button. Do you have any ideas to automatically press this button?

 

[mehidy1437]

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