module1.bas

电子书“Visual Basic 6 网络编程实例教程.rar”

Attribute VB_Name = "Module1"
Option Explicit

Public Const CSIDL_ADMINTOOLS As Long = &H30             '（用户）\开始菜单\程序\系统管理工具
                                        
Public Const CSIDL_ALTSTARTUP As Long = &H1D             '未本地化的启动
Public Const CSIDL_APPDATA As Long = &H1A                '（用户）\应用程序的数据
Public Const CSIDL_BITBUCKET As Long = &HA               '（桌面）\回收站
Public Const CSIDL_CONTROLS As Long = &H3                '我的电脑\控制面板
Public Const CSIDL_COOKIES As Long = &H21
Public Const CSIDL_DESKTOP As Long = &H0                 '桌面
Public Const CSIDL_DESKTOPDIRECTORY As Long = &H10       '（用户）\桌面
Public Const CSIDL_FAVORITES As Long = &H6               '（用户）\个性化设置
Public Const CSIDL_FONTS As Long = &H14                  'windows\字体
Public Const CSIDL_HISTORY As Long = &H22
Public Const CSIDL_INTERNET As Long = &H1                'IE（桌面上的图标
Public Const CSIDL_INTERNET_CACHE As Long = &H20         '因特网缓存文件夹
Public Const CSIDL_LOCAL_APPDATA  As Long = &H1C         '（用户）\本地设置\应用程序数据
                                                             
                                                             
Public Const CSIDL_DRIVES As Long = &H11                 '我的电脑
Public Const CSIDL_MYPICTURES As Long = &H27             'C:\Program Files\My Pictures
Public Const CSIDL_NETHOOD As Long = &H13                '（用户）\网上邻居中的元素
Public Const CSIDL_NETWORK As Long = &H12                '网上邻居

Public Const CSIDL_PRINTERS As Long = &H4                '我的电脑\打印机
Public Const CSIDL_PRINTHOOD As Long = &H1B              '（用户）\打印机连接
Public Const CSIDL_PERSONAL As Long = &H5                '我的文档

Public Const CSIDL_PROGRAM_FILES As Long = &H26          'C:\Program Files
Public Const CSIDL_PROGRAM_FILESX86 As Long = &H2A       'x86 apps (Alpha)的程序文件目录
Public Const CSIDL_PROGRAMS As Long = &H2                '开始菜单\程序
Public Const CSIDL_PROGRAM_FILES_COMMON As Long = &H2B   'Program Files\Common
Public Const CSIDL_PROGRAM_FILES_COMMONX86 As Long = &H2C 'RISC上的x86 \Program Files\Common
Public Const CSIDL_RECENT As Long = &H8                  '(用户)\最近记录目录
Public Const CSIDL_SENDTO As Long = &H9                  '(用户)\发送到目录
Public Const CSIDL_STARTMENU As Long = &HB               '(用户)\开始菜单
Public Const CSIDL_STARTUP As Long = &H7                 '开始菜单\程序\启动
Public Const CSIDL_SYSTEM As Long = &H25                 'system文件夹
Public Const CSIDL_SYSTEMX86 As Long = &H29              'x86 apps (Alpha)的system文件夹
Public Const CSIDL_TEMPLATES As Long = &H15
Public Const CSIDL_PROFILE As Long = &H28                '用户概貌文件夹
Public Const CSIDL_WINDOWS As Long = &H24                'Windows目录或SYSROOT()

Public Const CSIDL_COMMON_ADMINTOOLS As Long = &H2F      '（所有用户）\开始菜单\程序\系统管理工具
Public Const CSIDL_COMMON_ALTSTARTUP As Long = &H1E      '未本地化的通用启动
Public Const CSIDL_COMMON_APPDATA As Long = &H23         '（所有用户）\应用程序数据
Public Const CSIDL_COMMON_DESKTOPDIRECTORY As Long = &H19 '（所有用户）\桌面
Public Const CSIDL_COMMON_DOCUMENTS As Long = &H2E       '（所有用户）\文档
Public Const CSIDL_COMMON_FAVORITES As Long = &H1F       '(所有用户)\设置
Public Const CSIDL_COMMON_PROGRAMS As Long = &H17        '(所有用户)\程序
Public Const CSIDL_COMMON_STARTMENU As Long = &H16       '(所有用户)\开始菜单
Public Const CSIDL_COMMON_STARTUP As Long = &H18         '(所有用户)\启动
Public Const CSIDL_COMMON_TEMPLATES As Long = &H2D       '(所有用户)\临时

Public Const CSIDL_FLAG_CREATE = &H8000&
Public Const CSIDL_FLAG_DONT_VERIFY = &H4000
Public Const CSIDL_FLAG_MASK = &HFF00
Public Const SHGFP_TYPE_CURRENT = &H0
Public Const SHGFP_TYPE_DEFAULT = &H1
Public Const MAX_PATH = 260
Public Const S_OK = 0
Public Const S_FALSE = 1

Public Declare Function SHGetFolderPath _
    Lib "shfolder.dll" Alias "SHGetFolderPathA" _
    (ByVal hWndOwner As Long, _
     ByVal nFolder As Long, _
     ByVal hToken As Long, _
     ByVal dwReserved As Long, _
     ByVal lpszPath As String) As Long
     
     
Public Function GetFolderPath(hWndOwner As Long, CSIDL As Long) As String
   Dim sPath As String
  '用指定的文件夹元素初始化pidl
   sPath = Space$(MAX_PATH)
   If SHGetFolderPath(hWndOwner, CSIDL, 0&, SHGFP_TYPE_CURRENT, sPath) = S_OK Then
       GetFolderPath = Left$(sPath, InStr(sPath, Chr$(0)) - 1)
   End If
End Function