module1.vb

来自「Visual.Basic.NET实用编程百例-47.6M.zip」· VB 代码 · 共 7 行

Module Module1
    Public Declare Function DoOrganizeFavDlg Lib "shdocvw.dll" (ByVal hWnd As Integer, ByVal lpszRootFolder As String) As Integer
    Public Declare Function SHGetFolderPath Lib "shfolder.dll" Alias "SHGetFolderPathA" (ByVal hwndOwner As Integer, ByVal nFolder As Integer, ByVal hToken As Integer, ByVal dwReserved As Integer, ByVal lpszPath As String) As Integer

    Public Const CSIDL_FAVORITES As Short = &H6S
End Module