GetOpenFileName

Программирование на Visual Basic, главный форум. Обсуждение тем программирования на VB 1—6.
Даже если вы плохо разбираетесь в VB и программировании вообще — тут вам помогут. В разумных пределах, конечно.
Правила форума
Темы, в которых будет сначала написано «что нужно сделать», а затем просьба «помогите», будут закрыты.
Читайте требования к создаваемым темам.
lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

GetOpenFileName

Сообщение lord0n » 07.10.2005 (Пт) 7:34

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

OFName.lStructSize = Len(OFName)
OFName.hwndOwner = Me.hWnd
OFName.hInstance = App.hInstance
OFName.lpstrFilter = "Microsoft Excel (*.xls)" + Chr$(0) + "*.xls" + Chr$(0) + "All Files (*.*)" + Chr$(0) + "*.*" + Chr$(0)
OFName.lpstrFile = Space$(254)
OFName.nMaxFile = 255
OFName.lpstrFileTitle = Space$(254)
OFName.nMaxFileTitle = 255
OFName.lpstrTitle = "Stand_DB"
OFName.flags = 0

If GetOpenFileName(OFName) Then FName = Trim$(OFName.lpstrFile)


вопрос такой: если имя и путь к файлу я присваиваю переменной, то при открытии файла как базы, выскакивает ошибка
а если вместо FName написать lblFileName.Caption, то проблем нет
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.

tyomitch
Пользователь #1352
Пользователь #1352
Аватара пользователя
 
Сообщения: 12822
Зарегистрирован: 20.10.2002 (Вс) 17:02
Откуда: חיפה

Сообщение tyomitch » 07.10.2005 (Пт) 7:42

Наверное,
Код: Выделить всё
FName = Left(OFName.lpstrFile, InStr(OFName.lpstrFile, vbNullChar) - 1)

:?:
Изображение

lord0n
Постоялец
Постоялец
Аватара пользователя
 
Сообщения: 845
Зарегистрирован: 30.06.2005 (Чт) 9:55
Откуда: Moskow

Сообщение lord0n » 07.10.2005 (Пт) 7:52

tyomitch писал(а):Наверное,
Код: Выделить всё
FName = Left(OFName.lpstrFile, InStr(OFName.lpstrFile, vbNullChar) - 1)

:?:


хех, спасибо сработало
Теория - это когда что-то не работает и известно почему.
Практика - это когда что-то работает, но неизвестно почему.
Нам удалось совместить теорию с практикой, теперь ничего не работает и неизвестно почему.


Вернуться в Visual Basic 1–6

Кто сейчас на конференции

Сейчас этот форум просматривают: Yandex-бот и гости: 56

    TopList