Tự động bấm nút "OK" khi hiện hộp thoại FileDialog (bỏ dấu tiếng Việt tất cả file trong 1 folder)

[randaubienghoc]

Hi cả nhà,

Em sưu tầm được trên diễn đàn code bỏ dấu tiếng Việt tất cả file trong 1 folder. (Ví dụ: tên file là "khó quá không biết" => "kho qua khong biet").
Em có nghiên cứu để tự động chọn tất cả các file theo đường dẫn 1 folder thay vì thao tác lựa chọn thủ công. Tuy nhiên, vẫn cần thao tác bấm OK khi hộp thoại hiện ra.

Rất mong được anh/ chị hỗ trợ xử lý giúp để có thể tự động bấm nút OK. Em gửi file đính kèm để anh chị tham khảo ạ.

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 = "C:\Users\Admin\Desktop\Rename\" 'change the path
        
        If .Show = -1 Then 'add this
        SendKeys "{Enter}"
         Application.DisplayAlerts = True
        
        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

Em xin cảm ơn.

 

[befaint]

Sub Main()
Const Path as string = "C:\Users\Admin\Desktop\Rename\" 'change the path
    Dim SourceFile As String, TargetFile As String, Fi as object

            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

 

[randaubienghoc]

Sub Main()
Const Path as string = "C:\Users\Admin\Desktop\Rename\" 'change the path
    Dim SourceFile As String, TargetFile As String, Fi as object

            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

em cảm ơn anh nhiều ạ