如何显示一个目录选择对话框，要可以指定初始路径！

[town]

我这作有个，但不能指定初始路径：
Private Const BIF_RETURNONLYFSDIRS = 1
Private Const BIF_DONTGOBELOWDOMAIN = 2
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 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

Public Function BrowerFolder(lngHwnd As Long, strTitle As String) As String
Dim lpIDList As Long
Dim sBuffer As String
Dim szTitle As String
Dim tBrowseInfo As BrowseInfo

szTitle = strTitle
With tBrowseInfo
.hwndOwner = lngHwnd
.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)
BrowerFolder = sBuffer
End If
End Function

[ByTheWay]

需要这么复杂吗？
你在VB6中用DIRLISTBOXBOX控件，指定DIR=初始路径就OK了

[Amoon]

hehe,对呀。

[ByTheWay]

笔误：

需要这么复杂吗？
你在VB6中用DirListBox控件，指定DIR=初始路径就OK了

[town]

我不想用控件或增加窗体，能用为什么不用。
这个复杂吗？

[ByTheWay]

O SORRY，下次说话注意语气、用词。
我觉得功能效果都一样，为什么不用DirListBox控件？
能说说你的想法吗？
大家一起讨论讨论。

[meilideme]

to：ByTheWay(到此一游)
说什么呢，
就是啊，我们可以讨论的吗

[town]

就是在一个很复杂的界面上有一个功能，选择一个目录，就这么简单；不想破坏这个界面增中加一个DirListBox控件，也不想单独增加一个放有DirListBox的窗体来处理；
就象有MsgBox可以用，你不必去自已编一个吧。

问问题还需要说明为什么问吗？DirListBox这么老土。

[taxi]

uses FileCtrl;

SelectDirectory

[town]

我要用API,因为我是在VB中用。

[town]

upup