если можно еще один вопросчик

[max-aziat]

я открываю файл без разрешение с помощью "комон диалога" так вот он открывает все нормально ....но вот когда открываю другие файли с другими рассширениями то открывает и выдает ощыбку....так можно сделать так чтоб прога открывала тока файли без определенного рассщирения...блин наверное глупо....

[Konst_One]

ничего не понял, можно по-русски еще раз

[max-aziat]

короче ...один п...написал прогу...выходной файл простой без разрешения...ну не знаю как еще это назвать....короче *.txt или *.log или *. doc нету такого ....так вот я открываю этот файл , всё нормально .....но ведь когда я дам кому недь эту прогу на использование то он может случайно или не случайно открыть другой файл ну типа *.txt или еще что то ....ну вот я не хочу чтоб он открывал лищние файли ....блин не знаю как еще обяснить ....попадись мне этот кодер ....

[Konst_One]

не разрешение, а расширение

все равно не уловил в чем проблема

[keks-n]

Перехвати вызов API, что еще сказать... Исходника у тебя, конечно, нету, да?

[max-aziat]

еслиб был то конечно не спрашывал бы

[RayShade]

keks-n

Ты, как я погляжу, специалист по бесполезным советам, а?

max-aziat

Если ты используешь common dialog, то, покопайся в его пропертях - там есть настройка фильтрации расширений.

Что то типа:

Код: Выделить всё

.Filter="TXT files (*.txt)|*txt"

[Хакер]

keks-n
Ты, как я погляжу, специалист по бесполезным советам, а?
max-aziat
Если ты используешь common dialog, то, покопайся в его пропертях - там есть настройка фильтрации расширений.
Что то типа:

Код: Выделить всё

.Filter="TXT files (*.txt)|*txt"

А как ты представляешь себе маску, которая подходит для somefilename и ntldr но не подходит для somename.dat.
--------------

To Max-Aziat:
Попробуй так:

Код: Выделить всё


CDShow:
  CommonDialog1.ShowOpen
  If CommonDialog1.FileName="" Then Exit Sub 'Нажата "Отмена"
  If CommonDialog1.FileName Like "*.*" Then
   'Выбран файл с расширением
   CommonDialog.FileTitle = vbNullString
   GoTo CDShow:
  End If