BV писал(а):Собственно, для GetOpenFileName подходит именно проверка имени файла
Private Sub cmdOpen_Click()
On Error GoTo ErrorHandler
dlgOpen.Filter = "Log Files (*.log)|*.log|All Files (*.*)|*.*"
dlgOpen.Flags = cdlOFNReadOnly + cdlOFNFileMustExist
dlgOpen.CancelError = True
dlgOpen.ShowOpen
sOpenFile = dlgOpen.FileName
Exit Sub
ErrorHandler:
If Err.Number = 32755 Then
'MsgBox "You pressed Cancel!", vbInformation, "Cancel"
sOpenFile = ""
Exit Sub
End If
End Sub
Kovu писал(а):BV писал(а):Собственно, для GetOpenFileName подходит именно проверка имени файла
Зачем, если она возвращает ноль в случае Cancel'a
d3drm писал(а):cdFile.ShowOpen
Me.Caption = cdFile.CancelError
всегда показывает False есть 2 мысли - что либо у МЕНЯ так работает, либо ты не тестировал...
ведь не стал бы спрашивать, если б все так просто было...
Сейчас этот форум просматривают: Google-бот, Yandex-бот и гости: 140