Гость
Целевая тема:
Создать новую тему:
Автор:
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ИМЕНА ПАПОК / 6 сообщений из 6, страница 1 из 1
18.08.2005, 20:45:46
    #33224098
ИМЕНА ПАПОК
Нижеидущий код позволяет извлечь имя файла,
А КАК НАЙТИ ИМЕНА ПАПОК ?
Код: plaintext
1.
2.
3.
4.
5.
6.
7.
8.
9.
10.
11.
12.
13.
14.
15.
16.
17.
18.
19.
20.
21.
22.
23.
CommonDialog Control (Open, Save As Dialogs) Example
The following example shows the Open dialog then displays the selected filename in a message box:

Private Sub Command1_Click()
  ' Set CancelError is True
  CommonDialog1.CancelError = True
  On Error GoTo ErrHandler
  ' Set flags
  CommonDialog1.Flags = cdlOFNHideReadOnly
  ' Set filters
  CommonDialog1.Filter = "All Files (*.*)|*.*|Text Files" & _
  "(*.txt)|*.txt|Batch Files (*.bat)|*.bat"
  ' Specify default filter
  CommonDialog1.FilterIndex =  2 
  ' Display the Open dialog box
  CommonDialog1.ShowOpen
  ' Display name of selected file
  MsgBox CommonDialog1.filename
  Exit Sub
  
ErrHandler:
  'User pressed the Cancel button
  Exit Sub
End Sub
...
Рейтинг: 0 / 0
19.08.2005, 17:11:11
    #33225909
infant
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИМЕНА ПАПОК
С помощь Common Dialog это, боюсь, нельзя.
Используйте DirListBox или можно с API:
http://support.microsoft.com/default.aspx?scid=kb;en-us;179497
...
Рейтинг: 0 / 0
19.08.2005, 17:26:42
    #33225971
big-duke
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИМЕНА ПАПОК
API
SHBrowseForFolder
примеров в сети как грязи.
...
Рейтинг: 0 / 0
19.08.2005, 18:17:35
    #33226093
ИМЕНА ПАПОК
Пока попытка была на

DirListBox

Can’t find project or Library
Какую б-ку надо подсоединить, т.е. птицу поставить в ССЫЛКАХ
...
Рейтинг: 0 / 0
19.08.2005, 18:21:30
    #33226096
ИМЕНА ПАПОК
попытка получить HELP по F1
на
SHBrowseForFolder
завершилась аналогично предыдущей

Can’t find project or Library
Какую б-ку надо подсоединить, т.е. птицу поставить в ССЫЛКАХ
...
Рейтинг: 0 / 0
19.08.2005, 22:38:20
    #33226271
******************
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
ИМЕНА ПАПОК
НЕИЗВЕСТНЫЙПока попытка была на

DirListBox

Can’t find project or Library
Какую б-ку надо подсоединить, т.е. птицу поставить в ССЫЛКАХ
Зарегистрировался бы, а?
Если сидишь под Access, то DirListBox там нет и птицы не помогут. А насчет SHBrowseForFolder сказали же -
big-dukeAPI
SHBrowseForFolder
примеров в сети как грязи.


Это API. ПРИМЕРЫ СМОТРЕТЬ В СЕТИ (СЕТЬ - ИНТЕРНЕТ, А НЕ ЛОКАЛКА). например ЗДЕСЬ
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / ИМЕНА ПАПОК / 6 сообщений из 6, страница 1 из 1
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]