Question

vb怎么使dirbox里的文件显示commondialog打开的文件夹？

Answer 1

'VB使用api打开文件夹
'添加CommandButton控件(Command1)和DirListBox控件(Dir1)
Private Declare Function SHBrowseForFolder Lib "shell32" (lpbi As BrowseInfo) As Long
Private Declare Function SHGetPathFromIDList Lib "shell32.dll" Alias "SHGetPathFromIDListA" (ByVal pIdl As Long, ByVal pszPath As String) As Long
Private Type BrowseInfo
    hwndOwner As Long
    piDLroot As Long
    pszdisplayName As String
    lpsztitle As String
    ulFlags As Long
    lpfncallback As Long
    lParam As Long
    iImage As Long
End Type
Private Sub Command1_Click()
Dim bi As BrowseInfo
Dim folderid As Long
Dim pb As String
With bi
    .hwndOwner = Me.hWnd
    .lpsztitle = "请选择文件夹："
    .ulFlags = 3
End With
folderid = SHBrowseForFolder(bi)
If folderid = 0 Then Exit Sub
pb = String$(260, 0)
SHGetPathFromIDList folderid, pb
pb = Left$(pb, InStr(pb, vbNullChar) - 1)
Dir1.Path = pb
End Sub