Помогите вспомнить код на VB 6.

[Маратович]

Помогите вспомнить !!!  Забыл как написать код , что-бы при сохранении документа выскакивал

вопрос при наличии такого файла - "Такой файл существует" .

Раньше как-то делал, но вылетело из головы.

Пример для справки.

If Not kompasOb Is Nothing Then
        With CommonDialog1
            .DialogTitle = "Сохрани документ !!!"
            .Filter = "(*.cdw)|*.cdw"
            .InitDir = CurDir
            .FileName = "Название документа"
            .Flags = cdlOFNExplorer Or cdlOFNFileMustExist Or cdlOFNPathMustExist
            .ShowSave
            If .FileName <> "" Then
            docActive.ksSaveDocument (.FileName)
       End With
End If

Жду ответа.