VBNet - Форум - Просмотр списка папок без использования Common Dia

Вопрос: Просмотр списка папок без использования Common Dia Добавлено: 23.08.08 23:22

Автор вопроса: Яр

Всем привет, знатоки!
Нашел на форуме код (приведен ниже) для просмотра списка папок без использования Common Dialog. Но он открывает изначально "Мой компьютер". Можно ли этот код переделать так, чтобы открывалась сразу (по умолчанию) другая папка (ну, например: С:\1\)?
Если нет, то подскажите, как это можно сделать по другому.
Всем большое спасибо.

Option Explicit

Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
Private Const MAX_PATH = 260

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 Function lstrcat Lib "kernel32" Alias "lstrcatA" (ByVal lpString1 As String, ByVal lpString2 As String) 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

Function FolderDialogShow()
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo
szTitle = "Select Folder"

With tBrowseInfo
  .hWndOwner = Me.hWnd
  .lpszTitle = lstrcat(szTitle, "")
  .ulFlags = BIF_RETURNONLYFSDIRS + BIF_DONTGOBELOWDOMAIN
End With

lpIDList = SHBrowseForFolder(tBrowseInfo)

If (lpIDList) Then
  sBuffer = Space(MAX_PATH)
  SHGetPathFromIDList lpIDList, sBuffer
  sBuffer = Left(sBuffer, InStr(sBuffer, vbNullChar) - 1)
  FolderDialogShow = sBuffer
End If
End Function

Private Sub Command1_Click()
Text1 = FolderDialogShow
End Sub

Ответить

Ответы Всего ответов: 2

Номер ответа: 1 Автор ответа: Smith ICQ: adamis@list.ru Вопросов: 153 Ответов: 3632	Профиль \| \| #1	Добавлено: 24.08.08 00:07
	http://www.vbnet.ru/forum/show.aspx?id=173273 Ответить

Номер ответа: 2 Автор ответа: Яр Вопросов: 18 Ответов: 24	Профиль \| \| #2	Добавлено: 24.08.08 16:11
	Спасибо! Ответить

Страница: 1 |