Конференция VBStreets

**Neptus** » 20.08.2003 (Ср) 15:41

Как вызвать стандартное окно обзора для выбора пути к файлу.

**Sedge** » 20.08.2003 (Ср) 15:53

Тебе нужен выбор файла или выбор каталога?

**Tarik** » 20.08.2003 (Ср) 18:35

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

**Neptus** » 21.08.2003 (Чт) 9:08

Выбор каталога, с файлами прроблем нет, а вот как научить прогу выбор каталога делать я не знаю :cry:

**Sedge** » 21.08.2003 (Чт) 11:23

Лови

**Tarik** » 21.08.2003 (Чт) 15:44

А вот код для моего класса:

Код: Выделить всё: CdlgEx1.hOwner = Me.hWnd CdlgEx1.DialogPrompt = "Выберите директорию для поиска" CdlgEx1.ShowFolder lbldir = CdlgEx1.InitDir

**Neptus** » 22.08.2003 (Пт) 8:25

to Tarik: код я кое как прикрутил, только вот проблема, никак не могу заюзать стору с lbldir постоянно вылетает ошибка, я с час с ней боролся, как только убираю строку, все работает идеально, только вот невидно какой путь, что она такого использует?

**Хой** » 22.08.2003 (Пт) 8:32

если я правильно понял проблему, то вот примерчик:
----------

Код: Выделить всё: Private Type BrowseInfo hWndOwner As Long pIDLRoot As Long pszDisplayName As Long lpszTitle As Long ulFlags As Long lpfnCallback As Long lParam As Long iImage As Long End Type Const BIF_RETURNONLYFSDIRS = 1 Const MAX_PATH = 260 Private Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long) Private Declare Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) As Long Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long Private Declare Function SHGetPathFromIDList Lib "shell32" (ByVal pidList As Long, ByVal lpBuffer As String) As Long Private Sub Form_Load() Dim iNull As Integer, lpIDList As Long, lResult As Long Dim sPath As String, udtBI As BrowseInfo With udtBI .hWndOwner = Me.hWnd .lpszTitle = lstrcat("Выберите католог.", "") End With lpIDList = SHBrowseForFolder(udtBI) If lpIDList Then sPath = String$(MAX_PATH, 0) SHGetPathFromIDList lpIDList, sPath CoTaskMemFree lpIDList iNull = InStr(sPath, vbNullChar) If iNull Then sPath = Left$(sPath, iNull - 1) End If End If MsgBox sPath End Sub