请问以下的代码是什么意思?因为我是菜鸟,哪位高手能帮我解释一下啊,希望可以详细一点!谢谢!!
Option Explicit
Private Declare Function SHBrowseForFolder _
        Lib "shell32.dll" Alias "SHBrowseForFolderA" _
        (lpBrowseInfo As BROWSEINFO) As LongPrivate Declare Function SHGetPathFromIDList _
        Lib "shell32.dll" _
        (ByVal pidl As Long, _
        pszPath As String) As Long

解决方案 »

  1.   

    还有一小段
    Private Type BROWSEINFO
        hOwner As Long
        pidlRoot As Long
        pszDisplayName As String
        lpszTitle As String
        ulFlage As Long
        lpfn As Long
        lparam As Long
        iImage As Long
    End Type
    Private fnum As Integer
      

  2.   

    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 
    定义了2个API函数,一个叫SHBrowseForFolder,一个叫SHGetPathFromIDList Private Type BROWSEINFO 
        hOwner As Long 
        pidlRoot As Long 
        pszDisplayName As String 
        lpszTitle As String 
        ulFlage As Long 
        lpfn As Long 
        lparam As Long 
        iImage As Long 
    End Type 
    定义了一个自定义数据类型BROWSEINFOPrivate fnum As Integer 
    定义了一个整形变量fnum 
      

  3.   

    Private Declare Function SHBrowseForFolder _
            Lib "shell32.dll" Alias "SHBrowseForFolderA" _ 
            (lpBrowseInfo As BROWSEINFO) As Long 
    这个是API函数 用于显示一个文件夹浏览对话框 
    Private Declare Function SHGetPathFromIDList _ 
            Lib "shell32.dll" _ 
            (ByVal pidl As Long, _ 
            pszPath As String) As Long 
    这也是个API函数,当从第一个API返回后,用这个函获取已选定的文件名称列表。
    Private Type BROWSEINFO 
        hOwner As Long 
        pidlRoot As Long 
        pszDisplayName As String 
        lpszTitle As String 
        ulFlage As Long 
        lpfn As Long 
        lparam As Long 
        iImage As Long 
    End Type 
    这个结构是当作参数传线 第一个API函数的(SHBrowseForFolder )