用VB6.0生成目录对话框后如何指定初始目录.

[w1984721]

vb调用系统API生成一个目录选择对话框,如何制定初始目录,好像生成的初始目录都是我的电脑目录,比如我要指定初始目录为D:\Business这么实现,下面是我的代码,哪位高手给个示范代码可以指定目录(要用API).就像文件对话框那样.

Public Function ShowFolder() As Boolean
'Opens a Browse Folders Dialog Box that displays the
'directories in your computer
Dim lpIDList As Long 'Declare Varibles
Dim sBuffer As String
Dim tBrowseInfo As BrowseInfo

With tBrowseInfo
.hwndOwner = m_Owner.hwnd 'Owner Form
.lpszTitle = lstrcat(m_Title, "")

.ulFlags = BIF_DONTGOBELOWDOMAIN + BIF_RETURNONLYFSDIRS
End With

lpIDList = SHBrowseForFolder(tBrowseInfo)
If (lpIDList) Then
sBuffer = Space(MAX_PATH)
SHGetPathFromIDList lpIDList, sBuffer
sBuffer = Left$(sBuffer, InStr(sBuffer, vbNullChar) - 1)
m_Path = sBuffer
m_FileName = ""
m_FileTitle = ""
ShowFolder = True
Else
ShowFolder = False
End If
End Function

[threenewbee]

http://www.china-askpro.com/msg13/qa68.shtml