Save As Existing Filename

[GrahamUNC]

Hello all,

I am using the built in Save As dialog box to get the name for a text file I am going to write out.

However, I want to check to see if the filename already exists in the directory the user wants to save the file to. If the file already exists then I would like a message box to pop-up to ask the user if he would like to overwrite the existing file.

The message box is not the problem, I just need to know how to check the inputted file name versus the file names in the current directory.

Any suggestions?

Thanks in advance.

 

[PHV]

Take a look at the Dir function.

Hope This Helps, PH.
Want to get great answers to your Tek-Tips questions? Have a look at FAQ219-2884 or FAQ222-2244

 

[u1773]

How does this work for you?

Function CheckFileExist(filespec) As Boolean
    Dim fs
    Set fs = CreateObject("Scripting.FileSystemObject")
    CheckFileExist = fs.FileExists(filespec)
End Function