Save file already exists

[SamSlade]

Hi

I feel I am missing something very obvious here, but I want to give a file a specific name and then save it in VBA. That part is no problem.

The difficulty arises when that file name already exists - under those circumstances I want to add a v2 or v3 etc after the file name. I have tried error trapping but it does not seem to work.

Is there a way to achieve this please?

Many thanks

Kind regards

Sam

 

[Hermanito]

You could create a loop in which you check if the filename you want to use for saving already exists, if it does, change the filename.
Stay in that loop until you have a filename that doesn't exist yet, then exit the loop and save the file.

To check if a file already exists, you could use the following function:

Public Function FileExists(Filename As String) As Boolean
    On Error Resume Next
    FileExists = IIf(Dir(Filename) = "", False, True)
End Function