Directory

[iolaus]

есть компонент CommonDialog, он для файлов, с какой компонент нужен чтоюы открывать папки (у всех программ есть такой стандартный...)????

[GSerg]

Это не компонент, это

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

Option Explicit

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)

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

Private Sub Form_Load()
  Dim bi As BrowseInfo, lpIDList As Long
  Dim Folder As String
 
  bi.lpszTitle = StrPtr(StrConv("Выбираем...", vbFromUnicode))
  bi.hwndOwner = hWnd
 
  lpIDList = SHBrowseForFolder(bi)

  Folder = String$(255, 0)
  SHGetPathFromIDList lpIDList, Folder
  CoTaskMemFree lpIDList
  Folder = Left$(Folder, InStr(Folder, vbNullChar) - 1)
  MsgBox Folder
End Sub

[iolaus]

огромное спасибо...

а почему у меня
bi.lpszTitle = StrPtr(StrConv("Выбираем...", vbFromUnicode))

выдает иероглифы???

[GSerg]

А фиг его знает...
Ну попробуй убрать strconv.