Another Renaming Files Question

[lapta301]

Dear All

Sorry to ask yet another renaming question but if it can be done I'm sure that one of you wizzards can.

I have a lot of audio (mp3/wma) files that I move across from an Olympus voice recorder and as the file name is worthless I would like to rename all of them to the file modified date in the format of something like yyyy-mm-dd hhss.

However there are some times where there are two files with the same date and time so something extra needs to be added to the name.

As ever any help is most gratefully received.

 

[Richard Schollar]

You can check if a file with such a filename already exists before you rename the file and then act appropriately:

Dim strFile As String, strPth As String
Dim cnt As Long
 
strPth = "C:\SomeFolder\"
strFile = "SomeFile.mp3"
 
'check if file already exists:
If Dir(strPth & Format(FileDateTime(strPth & strFile), "yyyy-mm-dd hhss") & ".mp3")<>"" Then
    'if so then modify filename with counter:
    cnt = 1
    Do
       If Dir(strPth & Format(FileDateTime(strPth & strFile), "yyyy-mm-dd hhss") & "_" & cnt & ".mp3")<>"" Then
           cnt = cnt + 1 
        Else
            Name strPth & strFile As strPth & Format(FileDateTime(strPth & strFile), "yyyy-mm-dd hhss") & "_" & cnt & ".mp3"
             Exit Do
         End if
    Loop
Else 
    'file doesn't already exist - so name it
    Name strPth & strFile As strPth & Format(FileDateTime(strPth & strFile), "yyyy-mm-dd hhss") & ".mp3"
End if

Hopefully that will work - I've just typed it in from memory due to Excel not working on my computer at the moment

 

[GlennUK]

Hopefully that will work - I've just typed it in from memory due to Excel not working on my computer at the moment

... gasp! Excel not working! You will be getting withdrawal symptoms.

 

[Richard Schollar]

Fortunately back up and running

Agreed it would have been a disaster otherwise