如何获取当前用户IE临时文件夹的目录呀？

如何获取当前用户IE临时文件夹（Temporary   Internet   Files）的目录呀？  
   
  问题点数：10、回复次数：6Top

1 楼3gw（人往高处走）回复于 2003-09-03 14:50:14 得分 0

如何得到它的路径？Top

2 楼TechnoFantasy（（VB MVP）www.applevb.com）回复于 2003-09-03 14:58:11 得分 0

Const   CSIDL_DESKTOP   =   &H0  
  Const   CSIDL_PROGRAMS   =   &H2  
  Const   CSIDL_CONTROLS   =   &H3  
  Const   CSIDL_PRINTERS   =   &H4  
  Const   CSIDL_PERSONAL   =   &H5  
  Const   CSIDL_FAVORITES   =   &H6  
  Const   CSIDL_STARTUP   =   &H7  
  Const   CSIDL_RECENT   =   &H8  
  Const   CSIDL_SENDTO   =   &H9  
  Const   CSIDL_BITBUCKET   =   &HA  
  Const   CSIDL_STARTMENU   =   &HB  
  Const   CSIDL_DESKTOPDIRECTORY   =   &H10  
  Const   CSIDL_DRIVES   =   &H11  
  Const   CSIDL_NETWORK   =   &H12  
  Const   CSIDL_NETHOOD   =   &H13  
  Const   CSIDL_FONTS   =   &H14  
  Const   CSIDL_TEMPLATES   =   &H15  
  Const   MAX_PATH   =   260  
  Private   Type   SHITEMID  
          cb   As   Long  
          abID   As   Byte  
  End   Type  
  Private   Type   ITEMIDLIST  
          mkid   As   SHITEMID  
  End   Type  
  Private   Declare   Function   ShellAbout   Lib   "shell32.dll"   Alias   "ShellAboutA"   (ByVal   hWnd   As   Long,   ByVal   szApp   As   String,   ByVal   szOtherStuff   As   String,   ByVal   hIcon   As   Long)   As   Long  
  Private   Declare   Function   SHGetSpecialFolderLocation   Lib   "shell32.dll"   (ByVal   hwndOwner   As   Long,   ByVal   nFolder   As   Long,   pidl   As   ITEMIDLIST)   As   Long  
  Private   Declare   Function   SHGetPathFromIDList   Lib   "shell32.dll"   Alias   "SHGetPathFromIDListA"   (ByVal   pidl   As   Long,   ByVal   pszPath   As   String)   As   Long  
  Private   Sub   Form_Load()  
          'Show   an   about   window  
          ShellAbout   Me.hWnd,   App.Title,   "   ",   ByVal   0&  
          'Set   the   graphical   mode   to   persistent  
          Me.AutoRedraw   =   True  
          'Print   the   folders   to   the   form  
          Me.Print   "Start   menu   folder:   "   +   GetSpecialfolder(CSIDL_STARTMENU)  
          Me.Print   "Favorites   folder:   "   +   GetSpecialfolder(CSIDL_FAVORITES)  
          Me.Print   "Programs   folder:   "   +   GetSpecialfolder(CSIDL_PROGRAMS)  
          Me.Print   "Desktop   folder:   "   +   GetSpecialfolder(CSIDL_DESKTOP)  
  End   Sub  
  Private   Function   GetSpecialfolder(CSIDL   As   Long)   As   String  
          Dim   r   As   Long  
          Dim   IDL   As   ITEMIDLIST  
          'Get   the   special   folder  
          r   =   SHGetSpecialFolderLocation(100,   CSIDL,   IDL)  
          If   r   =   NOERROR   Then  
                  'Create   a   buffer  
                  Path$   =   Space$(512)  
                  'Get   the   path   from   the   IDList  
                  r   =   SHGetPathFromIDList(ByVal   IDL.mkid.cb,   ByVal   Path$)  
                  'Remove   the   unnecessary   chr$(0)'s  
                  GetSpecialfolder   =   Left$(Path,   InStr(Path,   Chr$(0))   -   1)  
                  Exit   Function  
          End   If  
          GetSpecialfolder   =   ""  
  End   Function  
  Top

3 楼yijiansong（不知路在何方）回复于 2003-09-03 15:40:16 得分 0

找找API帮助，应该有的Top

4 楼lwm1977（大维）回复于 2003-09-03 16:31:34 得分 0

读取注册表Top

5 楼lwm1977（大维）回复于 2003-09-03 16:33:42 得分 10

[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\Shell   Folders]  
  "Cache"="C:\\WINDOWS\\Temporary   Internet   Files"  
  Top

6 楼hxy2003（asfd）回复于 2003-09-04 09:20:15 得分 0

就上面的代码。Top

相关问题

• desktop
• me
• shell
• csidl
• getspecialfolder
• const csidl
• folders
• itemidlist
• byval
• favorites

• 帖主：3gw
• lwm1977

• Visual Basic类图书
• Visual Basic类源码下载