Rename all files in a folder

Hi everyone,

I have a folder which contains all files exported from Dropbox. All these files have been named using the date when they are created. The names have the format as: YYYY-MM-DD HH.MM.SS. For example, 2023-05-31 15.29.51.

I just want to rename them as: YYYY_MM_DD. If there are multiple files with the same date, then just make it as: YYYY_MM_DD (1), YYYY_MM_DD (2), ...

Do you know how I can use a smart VBA code to automate this task?

Does this work for you?

Please Login or Register  to view this content.

Originally Posted by BNCOXUK

Do you know how I can use a smart VBA code to automate this task?

A VBA demonstration for starters to fit for what you forgot / misexplained :

PHP Code: 

Sub Demo1()
  Const P = "D:\Tests4Noobs\"
        F = Dir(P & "????-??-?? ??.??.??*"):  If F = "" Then Exit Sub
    With CreateObject("Scripting.FileSystemObject")
    Do
        B = P & Left(F, 11) & "("
        C = 0
        E = ")" & Mid(F, 20)
        Do:  C = C + 1:  N = B & C & E:  Loop While .FileExists(N)
        Name P & F As N
        F = Dir
    Loop Until F = ""
    End With
End Sub 


► Do you like it ? ► ► So thanks to click on bottom left star icon « ★ Add Reputation » ! ◄ ◄

Hello ByteMarks, Marc, your codes work really perfectly. Thank you for sharing knowledge.

Hello ByteMarks and Marc,

My apologies to come back. I have tried to apply the code to a folder which contains that date/time format. The question also needs to change hyphen - to underscore _

Would it be possible to update the code to accommodate that task please? Thank you.

Following on from Marc's code, maybe

Please Login or Register  to view this content.