File already exist...

[blizarr]

I have a sub that saves all the information I have in a file. Now I would like my sub to do just like almost all the "save" function do which is to check if the name already exist and see if the person want to replace it.... How do I do this??
Here's a part of the code I already have:

Dim intFileNo As Integer
    
    With dlg
        .Filter = "Protoypes (.c .cpp)|*.c;*.cpp|"
        .FilterIndex = 1
        .DefaultExt = "c"
        .FileName = nomFich
        .ShowSave
    End With
 
intFileNo = FreeFile
 
Open dlg.FileName For Binary As intFileNo
        Put intFileNo, , str
    Close intFileNo

Thanx in advance

[crptcblade]

Dim intFileNo As Integer
    
    With dlg
        .Flags = cdlOFNOverwritePrompt ' <--------------
        .Filter = "Protoypes (.c .cpp)|*.c;*.cpp|"
        .FilterIndex = 1
        .DefaultExt = "c"
        .FileName = nomFich
        .ShowSave
    End With
 
intFileNo = FreeFile
 
Open dlg.FileName For Binary As intFileNo
        Put intFileNo, , str
    Close intFileNo

[blizarr]

Thank you!! but now, how do I know if the person said yes or no whether or not he wanted to replace it??

[crptcblade]

If you click 'No', it should keep the dialog open until you pick another file, or hit cancel.

[blizarr]

Hahahaha!! That's right!!

I made a mistake in my cut and paste...