home *** CD-ROM | disk | FTP | other *** search
/ Chip 2007 November / CPNL0711.ISO / beeld / screen / hcf.exe / Basic / Basic_File_012_Get_Special_Directories.bas < prev    next >
BASIC Source File  |  2003-11-26  |  4KB  |  62 lines
  1. Print "CommonAdministrativeToolsDirectory ", File.CommonAdministrativeToolsDirectory        
  2. Print "CommonAppDataDirectory             ", File.CommonAppDataDirectory        
  3. Print "CommonDesktopDirectory             ", File.CommonDesktopDirectory        
  4. Print "CommonDocumentsDirectory           ", File.CommonDocumentsDirectory
  5. Print "CommonFavoritesDirectory           ", File.CommonFavoritesDirectory
  6. Print "CommonFilesDirectory               ", File.CommonFilesDirectory        
  7. Print "CommonMediaDirectory               ", File.CommonMediaDirectory        
  8. Print "CommonMusicDirectory               ", File.CommonMusicDirectory    
  9. Print "CommonPersonalDirectory            ", File.CommonPersonalDirectory    
  10. Print "CommonPicturesDirectory            ", File.CommonPicturesDirectory
  11. Print "CommonProgramDirectory             ", File.CommonProgramDirectory
  12. Print "CommonProgramMenuDirectory         ", File.CommonProgramMenuDirectory    
  13. Print "CommonStartMenuDirectory           ", File.CommonStartMenuDirectory
  14. Print "CommonStartupDirectory             ", File.CommonStartupDirectory
  15. Print "CommonSystemDirectory              ", File.CommonSystemDirectory
  16. Print "CommonTemplatesDirectory           ", File.CommonTemplatesDirectory
  17. Print "CommonVideoDirectory               ", File.CommonVideoDirectory    
  18. Print "CommonWindowsDirectory             ", File.CommonWindowsDirectory
  19. Print "CommonTempDirectory                ", File.CommonTempDirectory
  20. Print
  21. Print "UserAdministrativeToolsDirectory   ", File.UserAdministrativeToolsDirectory
  22. Print "UserCacheDirectory                 ", File.UserCacheDirectory
  23. Print "UserCdBurningDirectory             ", File.UserCdBurningDirectory
  24. Print "UserCookiesDirectory               ", File.UserCookiesDirectory
  25. Print "UserDesktopDirectory               ", File.UserDesktopDirectory
  26. Print "UserFavoritesDirectory             ", File.UserFavoritesDirectory
  27. Print "UserFontsDirectory                 ", File.UserFontsDirectory
  28. Print "UserHistoryDirectory               ", File.UserHistoryDirectory
  29. Print "UserLocalAppDataDirectory          ", File.UserLocalAppDataDirectory
  30. Print "UserLocalSettingsDirectory         ", File.UserLocalSettingsDirectory
  31. Print "UserMyMusicDirectory               ", File.UserMyMusicDirectory
  32. Print "UserMyPicturesDirectory            ", File.UserMyPicturesDirectory
  33. Print "UserMyVideoDirectory               ", File.UserMyVideoDirectory
  34. Print "UserNetHoodDirectory               ", File.UserNetHoodDirectory
  35. Print "UserPersonalDirectory              ", File.UserPersonalDirectory
  36. Print "UserPrintHoodDirectory             ", File.UserPrintHoodDirectory
  37. Print "UserProgramMenuDirectory           ", File.UserProgramMenuDirectory
  38. Print "UserRecentDirectory                ", File.UserRecentDirectory
  39. Print "UserSendToDirectory                ", File.UserSendToDirectory
  40. Print "UserStartMenuDirectory             ", File.UserStartMenuDirectory
  41. Print "UserStartupDirectory               ", File.UserStartupDirectory
  42. Print "UserTemplatesDirectory             ", File.UserTemplatesDirectory
  43.  
  44. Print
  45. Print "Files in the Common Start Up group:"
  46. File.Find( File.CommonStartupDirectory + "\\*" )
  47. For i = 0 To File.NumberOfFiles - 1
  48.     Print File( i ).Name
  49. Next
  50. Print
  51. Print "Files in the User Start Up group:"
  52. File.Find( File.UserStartupDirectory + "\\*" )
  53. For i = 0 To File.NumberOfElements - 1
  54.     Print File( i ).Name
  55. Next
  56. Print
  57. Print "BMP files in the Windows directory:"
  58. File.Find( File.CommonWindowsDirectory + "\\*.bmp"  )
  59. For i = 0 To File.NumberOfElements - 1
  60.     Print File( i ).Name
  61. Next
  62.