home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Source Code / Visual Basic Source Code.iso / vbsource / explor2a / explorer.bas next >
Encoding:
BASIC Source File  |  1999-09-27  |  1.0 KB  |  36 lines
  1. Attribute VB_Name = "Module2"
  2.  
  3. Public Const IMG_FILE_KEY = "file"
  4. Public Const IMG_DRIVE_KEY = "drv"
  5. Public Const IMG_DIR_KEY = "fol"
  6. Public Const IMG_OPENFOLDER_KEY = "opnfol"
  7. Public Const IMG_DESKTOP_KEY = "dsktop"
  8. Public Const IMG_MYCOMP_KEY = "mycomp"
  9. Public Const IMG_NETHOOD_KEY = "nethood"
  10. Public Const IMG_NETDRV_KEY = "netdrv"
  11. Public Const IMG_REMDRV_KEY = "remdrv"
  12. Public Const IMG_CDDRV_KEY = "cddrv"
  13.  
  14. Public Const TXT_FILE_TYPE_NAME = "File"
  15. Public Const TXT_DIR_TYPE_NAME = "Folder"
  16. Public Const TXT_MYCOMP_TITLE = "My Computer"
  17. Public Const TXT_DESKTOP_TITLE = "Desktop"
  18.  
  19.  
  20.  
  21. Public SHELL_PATHS(17) As String 'To keep any and all system paths
  22.  
  23.  
  24. Public Sub LoadShellPaths()
  25. Dim CurrHkey As Long
  26. Dim ShellFoldersPath As String
  27. CurrHkey = &H80000001
  28. ShellFoldersPath = "Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders\"
  29.  
  30. SHELL_PATHS(1) = SYS_REG_ACCESS.GetString(CurrHkey, ShellFoldersPath, "desktop")
  31. SHELL_PATHS(2) = SYS_REG_ACCESS.GetString(CurrHkey, ShellFoldersPath, "desktop")
  32. End Sub
  33.  
  34.  
  35.  
  36.