check if file exists

Need help vba code to take input from save as dia box check if that file
exists if does reject that filename. then ask for diff name.

this should get you started:

Function FileExists(fName) As Boolean
' True if exists
On Error GoTo FileExists_Error

FileExists = False

Dim x As String
x = Dir(fName)
If x <> "" Then FileExists = True

Exit Function

FileExists_Error:
Select Case Err.Number
Case 52
FileExists = False
Case Else
MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
procedure FileExists "
End Select
End Function


"Curt" <Curt@discussions.microsoft.com> wrote in message
news:6A4A35F6-B956-4B83-A7BB-4C82C1E28C2F@microsoft.com...
> Need help vba code to take input from save as dia box check if that file
> exists if does reject that filename. then ask for diff name.

Thanks much will get at it

"Steve" wrote:

> this should get you started:
>
> Function FileExists(fName) As Boolean
> ' True if exists
> On Error GoTo FileExists_Error
>
> FileExists = False
>
> Dim x As String
> x = Dir(fName)
> If x <> "" Then FileExists = True
>
> Exit Function
>
> FileExists_Error:
> Select Case Err.Number
> Case 52
> FileExists = False
> Case Else
> MsgBox "Error " & Err.Number & " (" & Err.Description & ") in
> procedure FileExists "
> End Select
> End Function
>
>
> "Curt" <Curt@discussions.microsoft.com> wrote in message
> news:6A4A35F6-B956-4B83-A7BB-4C82C1E28C2F@microsoft.com...
> > Need help vba code to take input from save as dia box check if that file
> > exists if does reject that filename. then ask for diff name.
>
>
>