Catching duplicate filenames when renaming a file

Hi,

In my code I have to rename some files, using the command:

Name oldfilename as newfilename

Sometimes the newfilename already exists so I am looking for a way to
detect that condition, I tried:

If iserror(Name oldfilename as newfilename) then
CODE HERE
else
name oldfilename as newfilename
end if

However, Excel "Expects list seperator or )" around the oldfilename in
the iserror statement. Help!

Also, for this code I am in the middle of an application filesearch so
I can't search for the file using application.filesearch.

Thank you!!!

Phil

Hello Phil,

Test if the file name exisits use the following code:

Dim FileExists

FileExists = Dir("C:\My Documents\Test.xls")

If the file exists then FileExists = the File Name in this "C:\My Documents\Test.xls".
If not, FileExists = "". Best part, no error messages.

Hope this helps,
Leith Ross

Phil,

How about

If Dir(newfilename)<>"" then
'the file exists
else
'save the file
end if

Robin Hammond
www.enhanceddatasystems.com

"General" <[email protected]> wrote in message
news:[email protected]...
> Hi,
>
> In my code I have to rename some files, using the command:
>
> Name oldfilename as newfilename
>
> Sometimes the newfilename already exists so I am looking for a way to
> detect that condition, I tried:
>
> If iserror(Name oldfilename as newfilename) then
> CODE HERE
> else
> name oldfilename as newfilename
> end if
>
> However, Excel "Expects list seperator or )" around the oldfilename in
> the iserror statement. Help!
>
> Also, for this code I am in the middle of an application filesearch so
> I can't search for the file using application.filesearch.
>
> Thank you!!!
>
> Phil
>

Another way

On Error Resume Next
Name oldfilename As newfilename
If Err.Number = 58 Then 'already exists
MsgBox "file " & newfilename & " already exists"
End If
On Error GoTo 0


--

HTH

RP
(remove nothere from the email address if mailing direct)


"Robin Hammond" <[email protected]> wrote in message
news:%[email protected]...
> Phil,
>
> How about
>
> If Dir(newfilename)<>"" then
> 'the file exists
> else
> 'save the file
> end if
>
> Robin Hammond
> www.enhanceddatasystems.com
>
> "General" <[email protected]> wrote in message
> news:[email protected]...
> > Hi,
> >
> > In my code I have to rename some files, using the command:
> >
> > Name oldfilename as newfilename
> >
> > Sometimes the newfilename already exists so I am looking for a way to
> > detect that condition, I tried:
> >
> > If iserror(Name oldfilename as newfilename) then
> > CODE HERE
> > else
> > name oldfilename as newfilename
> > end if
> >
> > However, Excel "Expects list seperator or )" around the oldfilename in
> > the iserror statement. Help!
> >
> > Also, for this code I am in the middle of an application filesearch so
> > I can't search for the file using application.filesearch.
> >
> > Thank you!!!
> >
> > Phil
> >
>
>

Thanks, that solves it for me!