' 此函数返回值是指向项目（ITEM）的一个指针，有了这个数值，再用API函数SHGetPathFromIDList可以获得具体的路径，如果用户按的是“取消”按钮，则返回值为NULL。
Private Declare Function SHBrowseForFolder _
　　　　　　　　　Lib "shell32.dll" Alias "SHBrowseForFolderA" _
　　　　　　　　　(lpBrowseInfo As BROWSEINFO) As Long
Private Declare Function SHGetPathFromIDList _
　　　　　　　　　Lib "shell32.dll" _
　　　　　　　　　(ByVal pidl As Long, _
　　　　　　　　　pszPath As String) As Long(The return value of this function is a pointer to the item (ITEM). With this value, we can get the specific path by using the API function SHGetPathFromIDList. If the user presses the Cancel button, then the value is returned.)