| Вопрос: Диалог сохранения файлов | Добавлено: 28.03.07 00:31 |
Автор вопроса:  Winand | Web-сайт: winandfx.narod.ru
|
|
Этот самый диалог может предупреждать о перезаписи файла, если совпадают названия.
Но ведь расширение не всегда написано! Opera например, хоть с расширением файла, хоть без него напишешь, все равно предупреждает. Можно ли это как-нибудь сделать? |
| Ответы | Всего ответов: 3 |
|
Номер ответа: 1 Автор ответа:  »VladikComper« ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #1 | Добавлено: 01.04.07 19:49 |
|
1)Сложно, но можно:
Написать свой ActiveX Control Dialog, заодно и обновить его интерфейсик... 
2) Самому обработать это событие: If diag1.FileName = diag1.File & ".exe" And diag1.FilterIndex = 0 Then
Dim M As Integer M = MsgBox("Данный файл уже существует. Перезаписать?", vbYesNo + vbExclamation, "Сохранение файла" 
Select Case M Case 6 ' ... записать файл Case 7 Exit Sub End If End Select |
||
|
Номер ответа: 2 Автор ответа: »VladikComper«ICQ: 419668582 Вопросов: 23 Ответов: 147 |
Web-сайт: Профиль | | #2 | Добавлено: 01.04.07 19:52 |
|
1)Сложно, но можно:
Написать свой ActiveX Control Dialog, заодно и обновить его интерфейсик...
2) Самому обработать это событие: If diag1.FilterIndex = 0 Then
If Dir(diag.FileName & ".exe" <> "" Then Dim M As Integer M = MsgBox("Данный файл уже существует. Перезаписать?", vbYesNo + vbExclamation, "Сохранение файла"
Select Case M Case 6 ' ... записать файл Case 7 Exit Sub End Select End If End If |
||
|
Номер ответа: 3 Автор ответа:  Winand Вопросов: 87 Ответов: 2795 |
Web-сайт: Профиль | | #3 | Добавлено: 05.04.07 22:05 |
|
Да, я так и делаю (2-ой пункт). Только при этом приходится выходить из Диалога.
Кста, не проще ли: If MsgBox("Данный файл уже существует. Перезаписать?", vbYesNo + vbExclamation, "Сохранение файла" = vbYes then
'Если ДА Else 'Если НЕТ end if |
||
Страница: 1 |