remove the date from filename

[dhen21dx]

Hello,

I am trying to rename the my file to delete the date on Reports_20200919, but there is an error on the code.
Please help.

OldName = CurrentProject.Path & "\Import File\Reports_*" & ".csv"
Filepath1 = CurrentProject.Path & "\Import File\Report.txt"

Name OldName As Filepath1

 

[Domenic]

You can use the Dir function to retrieve the actual filename. Try something like this...

    Dim source_folder As String
    source_folder = CurrentProject.Path & "\Import File\"
    
    Dim old_name As String
    old_name = source_folder & Dir(source_folder & "Reports_*.csv", vbNormal)
    
    Dim new_name As String
    new_name = source_folder & "Report.txt"
    
    Name old_name As new_name

Hope this helps!

 

[dhen21dx]

Hello Domenic,

Thanks, that works.. the next time, i use the Dir function.. really appreciated for this learnings.

 

[Domenic]

That's great, I'm glad I could help, cheers!