VB 文件粉碎机源代码.rar_SHELL32.dll

此函数返回值是指向项目（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