кнопка 'ОБзор'

[Tof]

ээ... может я и торможу, не знаю как создать кнопку "Обзор" для выбора папки (точнее пути к папке). Плииз, мож кто подскажет

[RayShade]

Поиск по форуму с ключевым словом SHBrowseForFolder

[tyomitch]

Tof, готовая кнопка: http://vbrussian.com/Controls.asp?ID=34

[DVV]

А можно просто добавить стандартный контрол Microsoft common dialog control 6.0

[tyomitch]

DVV, Tof не об этом: ему нужен выбор папки.

[Dzhon]

Помнится _Мика_ мне на такую-же проблему помог:

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

Private Type BrowseInfo
hwndOwner As Long
pIDLRoot As Long
pszDisplayName As Long
lpszTitle As String
ulFlags As Long
lpfnCallback As Long
lParam As Long
iImage As Long
End Type
Dim strPath As String
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 Declare Sub CoTaskMemFree Lib "ole32.dll" (ByVal hMem As Long)

Public Function BrowseForFolder(hwndOwner As Long, sPrompt As String) As String
Const BIF_RETURNONLYFSDIRS = 1, MAX_PATH = 260
Dim intNull As Integer, lngIdList As Long
Dim udtBI As BrowseInfo

With udtBI
.hwndOwner = hwndOwner
.lpszTitle = sPrompt
.ulFlags = BIF_RETURNONLYFSDIRS
End With
lngIdList = SHBrowseForFolder(udtBI)
If lngIdList Then
strPath = String$(MAX_PATH, 0)
SHGetPathFromIDList lngIdList, strPath
CoTaskMemFree lngIdList
intNull = InStr(strPath, vbNullChar)
If intNull Then strPath = Left$(strPath, intNull - 1)
End If
BrowseForFolder = strPath
End Function

Private Sub Command1_Click()
BrowseForFolder Me.hWnd, "Hi, Select ... "
Print strPath
End Sub


Помогло?

[Tof]

всем спасибо,
но я тож нашла уже компонент... сенкс

[Andrey Fedorov]

А вообще - вот пример из Help-а:

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

Private Sub cmdGetPath_Click()
  Dim oShell As New Shell
  Dim oFolder As Folder
  Dim oFolderItem As FolderItem
 
  Set oFolder = oShell.BrowseForFolder(Me.hWnd, "Select a Folder", _
    0, ssfDrives)

  Set oFolderItem = oFolderItems.Item
  txtPath.Text = oFolderItem.Path

End Sub