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