Еще два впороса от тормоза, не умеющего искать по форуму

[_Мика_]

У меня прога не буду говорить какая но код такой

CD1.ShowOpen
sText=CD1.FileName


If Right(sText, 4)=".bmp" then
Form2.Show
picPath=sText
End if

if Right(sText, 4)=".wav" then
Form3.Show
musPAth=sText
end if

______________________
это все он хорошо делает
Ворос:
Как сделать чтобы на все остольные файлы он ну допустим показывал сообщение
Не прописывать же все в If' ах

И еще как можно привезать расширение к проге чтоб расшерение (*.mxt) все време открывалось моей прогой и имело свою иконку

P.S. только не говорите на счет второго вопроса "В ручную через Explorer "сервис->свойства папки-> итд""

[ANDLL]

А тема поста просто-так, для прикола
И куда смотрят модеры...

По вопросу. Честно говоря, не очень понятно, чего ты хочешь. Есть такой опратор Select case. Прдназначен для выбора правильного варианта.
Есть у CommonDialogContrtol свойство Filter.
К примеру :

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

CD1.Filter="Картинки|*.bmp|Музыка|*.wav|Все|*.*"
CD1.ShowOpen

А на счет расширений...
Информайия о том, какой файл какая программа открывает хранится в реестре в HKEY_CLASSES_ROO.

[Kostyan]

Как сделать чтобы на все остольные файлы он ну допустим показывал сообщение
Не прописывать же все в If' ах

Или используй св-во Filter или

If Right(sText, 4)=".bmp" then
Form2.Show
picPath=sText
ElseIf Right(sText, 4)=".wav" then
Form3.Show
musPAth=sText
Else
Msgbox "Сообщение"
end if

И еще как можно привезать расширение к проге чтоб расшерение (*.mxt) все време открывалось моей прогой и имело свою иконку

Блин, у меня такое ощущение, что этот вопрос задается ну раза 3 в неделю стабильно, поищи на форуме, 100000000000000000000 раз обсуждали.