SHBrowseForFolder可以提供文件列表,再用API函数SHGetPathFromIDList可以获得具体的路径,如果用户按的是“取消”按钮,则返回值为NULL定义:Option ExplicitPublic Type BROWSEINFOhOwner As LongpidlRoot As LongpszDispla
vb吗可以这样,一个按钮,两个列表框Public Function GetDirList(strPath As String)
Dim DirBox
Set DirBox = Controls.Add("VB.DirListBox", "DirListBox")
DirBox.path = strPath
Fo