GetFilePath

[hart]

В общем, голову сомал. В хелпе ничего не сказано.
Задача - отобразить диалогбокс стандартный с выбором каталга и указания наименования файла.

Пишу так:
result=GetFilePath$("имя_по_умолчанию", "doc", , "Укажите название файла", 3)

Внизу в выборе типов файлов - одна возможность: GetFilePath("*.doc")

Во-первых, как сделать, чтобы было вместо GetFilePath было допустим Word.
Во-вторых, как сделать, чтобы кроме doc, можно было выбирать xls и другие типы по отдельности?

Спасибо!

[RayShade]

Ну а что, такие штуки, как контрол CommonDialog и его метод ShowOpen уже отменили?

[hart]

Видимо, отменили. В SAXе пишу.

[GSerg]

В чём-в чём пишешь?..

[hart]

Скрипт в Aris Toolset. Sax Basic.

[GSerg]

А причём, хм, тогда здесь этот форум?..

[vvs_adm]

Как это при чем??? Там же Basic на конце

[hart]

А в обычном нету GetFilePath?

[GSerg]

В обычном есть http://bbs.vbstreets.ru/viewtopic.php?p=6613425#6613425

[hart]

GSerg ии?

[hart]

:roll:

[Antonariy]

GSerg ии?

GSerg не ии, он человек

Хотя, прочитав раз пятьдесят одинаковые "Что автор топика думает по поводу ...", я тоже так пару раз подумал.

[vvs_adm]

GSerg не ии, он человек

А откуда такая уверенность?

[hart]

мда. а героев сначала налетело-то..

[Lumen]

Хочется верить, что GSerg человек.
А как оно на самом деле - ХЗ.

[vvs_adm]

Верить - это не для нас, нам доказательства нужны

[Конь]

ИТАК, НА ПОВЕСТКЕ ДНЯ: ИИ ли GSerg?

If optVar(0).Value = 1 Then
GSerg = "AI"
ElseIf optVar(1).Value = 1 Then
GSerg = "Human"
End If

LoL

[Lumen]

ИТАК, НА ПОВЕСТКЕ ДНЯ: ИИ ли GSerg?

If optVar(0).Value = 1 Then
GSerg = "AI"
ElseIf optVar(1).Value = 1 Then
GSerg = "Human"
End If

LoL

Ага, давайте ещё тему в холиварах создадим...

[hart]

и все-таки сабж =)

[RayShade]

Во-первых, как сделать, чтобы было вместо GetFilePath было допустим Word.

Ну разве что так:

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

public function word(lstr,lstr1,lstr2,lstr3,lnum)
word=getfilepathlstr,lstr1,lstr2,lstr3,lnum)
end function


Во-вторых, как сделать, чтобы кроме doc, можно было выбирать xls и другие типы по отдельности?

Подставлять в фильтр переменную вида "TypeName (*.ext)| TypeName2(*.ext2)"

[hart]

Ну разве что так:

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

public function word(lstr,lstr1,lstr2,lstr3,lnum)
word=getfilepathlstr,lstr1,lstr2,lstr3,lnum)
end function


Перечитай мой первый пост.

Подставлять в фильтр переменную вида "TypeName (*.ext)| TypeName2(*.ext2)"

Получается одна строка с двумя фильтрами одновременно, а надо отдельные строки.

[RayShade]

По поводу раздельных строк я точно не помню, но там задается фильтр вида ""Word|*.doc; Excel|*.xls". В справке по ShowOpen есть.



Хотя если честно, то с SAX тут мало общего. Так что ты бы поискал спец форум по нему.