Маска на открытие файла / Visual Basic

ReSQL.ru

Мобильная версия Контакт Правила FAQ Помощь

Гость

Войти | Регистрация | Профиль | Очистить

Новые сообщения | Избранное

Форумы | Пользователи | Статистика | Мод. лог | Поиск

Цитировать

Написать

Автор*:

Ввести пароль для входа

Тема*:

Сообщение

Данное сообщение тематическое

Сообщение содержит картинки или видео 18+

Автор:

ВНИМАНИЕ! На данном подфоруме действуют строгие правила. Удостоверьтесь, что ваше сообщение соответствует им!

Форум или тема закрыты для гостей. Необходима авторизация!

Загрузить последнюю сохраненную версию

Вложение:

Вставить как галерею

Максимальный размер вложений: 4,0 МБ, аудио/видео: 8,0 МБ. Картинки большего размера ужимаются, если возможно.

Введите код, изображенный на картинке. Если код нечитаемый, кликните картинку, чтобы загрузить другой вариант.

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

Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Маска на открытие файла

9 сообщений из 9, страница 1 из 1

Маска на открытие файла

#34300760

ram

Гость

Можно ли при открытии файла по маске как в этом примере:

fileToOpen = Application.GetOpenFilename("Dbf Files (*.dbf), *.dbf")

сделать маску такую, чтобы показывлись не только файлы с расширением dbf,
а только конкретный файл, например s32006.dbf

...

Рейтинг:

0 / 0

02.02.2007, 04:51

| Ответить | Цитировать | Написать

Маска на открытие файла

#34301334

oxcom

Гость

ramМожно ли при открытии файла по маске как в этом примере:

fileToOpen = Application.GetOpenFilename("Dbf Files (*.dbf), *.dbf")

сделать маску такую, чтобы показывлись не только файлы с расширением dbf,
а только конкретный файл, например s32006.dbf

Напиши:
fileToOpen = Application.GetOpenFilename("Dbf Files (s32006.dbf), *.dbf")
или
fileToOpen = Application.GetOpenFilename("Dbf Files (*.dbf), s32006.dbf")
точно не помню
Под рукой VB нет.
Удачи...

...

Рейтинг:

0 / 0

02.02.2007, 11:02

| Ответить | Цитировать | Написать

Маска на открытие файла

#34303325

ram

Гость

oxcom ramМожно ли при открытии файла по маске как в этом примере:

fileToOpen = Application.GetOpenFilename("Dbf Files (*.dbf), *.dbf")

сделать маску такую, чтобы показывлись не только файлы с расширением dbf,
а только конкретный файл, например s32006.dbf

Напиши:
fileToOpen = Application.GetOpenFilename("Dbf Files (s32006.dbf), *.dbf")
или
fileToOpen = Application.GetOpenFilename("Dbf Files (*.dbf), s32006.dbf")
точно не помню
Под рукой VB нет.
Удачи...
А вот попробуй сам так сделать! Не работает это!

...

Рейтинг:

0 / 0

02.02.2007, 17:51

| Ответить | Цитировать | Написать

Маска на открытие файла

#34305296

oxcom

Гость

Тогда попробуй через компонент Microsoft dialog control...

...

Рейтинг:

0 / 0

05.02.2007, 07:17

| Ответить | Цитировать | Написать

Маска на открытие файла

#34307962

oxcom

Гость

oxcomТогда попробуй через компонент Microsoft dialog control...

Кинь на форму компонент Microsoft Common Dialog Control 6.0
пиши на кнопку:

Private Sub Command1_Click()
Commondialog1.Filter="Dbf Files|s32006.dbf|"
Commondialog1.Showopen
End Sub

Это сто пуд работает...

...

Рейтинг:

0 / 0

06.02.2007, 06:44

| Ответить | Цитировать | Написать

Период между сообщениями больше года.

Маска на открытие файла

#37225465

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

представленные строки скрипта вообще будуть работать в Ворде???, уже и явно объявляю:

Код: plaintext

Dim x As Variant
    x = Application.GetOpenFilename(FileFilter:="Excel Files (*.doc*), *.doc*", Title:="Choose Files", MultiSelect:=True)

всё одно функция не определена

...

Рейтинг:

0 / 0

20.04.2011, 20:43

| Ответить | Цитировать | Написать

Маска на открытие файла

#37225494

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

в сети пример нашёл, как я понял для Ворда:

Код: plaintext

1.
2.
3.
4.
5.
6.
7.

Dim WApp As Word.Application
Dim ActDoc As Word.Document

Filename = Application.GetOpenFilename(filefilter:="Документы MSWord (*.doc), *.doc", Title:="Выберите файл шаблона", MultiSelect:=False)
If Filename = RTrim(LTrim("False")) Then
MsgBox "Необходимо выбрать файл!"
Exit Sub
End If

Всё равно функция не определена????

...

Рейтинг:

0 / 0

20.04.2011, 21:06

| Ответить | Цитировать | Написать

Маска на открытие файла

#37225541

VSVLAD

Участник

Откуда: Краснодар

Сообщения: 1 379

Рейтинг: 0 / 0

Ципихович Эндрю, функция GetOpenFilename - не является частью объекта Word.Application, а входит в объект Excel.Application.

Код: plaintext

1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.

Function TEST()
    Dim ExApp As New Excel.Application 'Предварительно добавьте ссылку на Microsoft Excel в проект.
    Dim vFileName As Variant

    vFileName = ExApp.GetOpenFilename("Документы MSWord (*.doc), *.doc", , "Выберите файл", , False)
    If vFileName = False Then
        MsgBox "Необходимо выбрать файл!"
    Else
        MsgBox "Выбрали: " & sFileName
    End If

    ExApp.Quit 'Завершаем Excel
End Function

...

Рейтинг:

0 / 0

20.04.2011, 21:56

| Ответить | Цитировать | Написать

Маска на открытие файла

#37227233

Ципихович Эндрю

Участник

Откуда: Челябинская область

Сообщения: 3 980

Рейтинг: 0 / 0

VSVLAD, спасибо!!!!!!! работает, одно не пойму, как сделать, чтобы форма открывалась в нужном диске, в нужной папке???

...

Рейтинг:

0 / 0

21.04.2011, 17:35

| Ответить | Цитировать | Написать

9 сообщений из 9, страница 1 из 1

Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Маска на открытие файла

Читали тему (0):

Читали форум (0):

Пользователи онлайн (0):

start [/forum/topic.php?fid=60&fpage=103&tid=2158779]:	0ms
get settings:	9ms
get forum list:	14ms
check forum access:	4ms
check topic access:	4ms
track hit:	138ms
get topic data:	12ms
get forum data:	2ms
get page messages:	44ms
get tp. blocked users:	2ms
others:	10ms

total:	239ms