Вопрос о перезаписи файла

[uk8amk]

Когда вызываю ShowSave из CommonDialog и указываю уже существующий файл то он просто затрется без лишних вопросов. Хотелось бы чтобы в этом случае прога вежливо задавала вопрос типа "Файл существует. Перезаписать?". Как бы это можно было организовать?

[iGrok]

Проверить после вызова диалога существование файла, и выдать запрос.

[gjghjc]

Проверить можно при помощи dir.
А сам путь к файлу будет содержаться в CommonDialog1.FileName

[uk8amk]

Большое спасибо. Сделал так:

newname:
CommonDialog2.Filter = ".ild|*.ild"
CommonDialog2.CancelError = True
On Error Resume Next
CommonDialog2.ShowSave
If Err.Number = cdlCancel Then
Err.Clear
Exit Sub
End If
Err.Clear
On Error GoTo exitsub

TMPDir = Dir(CommonDialog2.FileName)
If Len(TMPDir) > 0 Then
If MsgBox("File:" & CommonDialog2.FileName & " already exists. " & "Overwrite?", vbYesNo) = vbYes Then
Kill (CommonDialog2.FileName)
Else
GoTo newname
End If
End If
............

Все пректрасно заработало

[Хакер]

iGrok, gjghjc
Вы чего?


CommonDialog1.Flags = cdlOFNOverwritePrompt
и всё. Нужные вопросы сами зададутся.

[gjghjc]

Да уж век живи век учись...

[iGrok]

Кхм. "Плюс один".. Чё-то меня переклинило..