Liste des dossiers spéciaux de Windows

' AfficherWindowsDossierSpeciaux.bas

label sel1, sel2

dim libelles$(60), dossiers$(60), i%, res%, chemin$, s$

full_space 0
list 1 : width 1,600 : height 1,700                : on_click 1,sel1
list 2 : width 2,600 : height 2,700 : left 2,610  : on_click 2,sel2


data "0 = Dossier Virtuel représentant le Bureau"
data "1 = Dossier Virtuel Internet"
data "2 = Dossier Programmes du Menu Démarrer"
data "3 = Dossier Virtuel contenant les icônes des applications du Panneau de Contrôle"
data "4 = Dossier Virtuel contenant les Imprimantes Installées"
data "5 = Dossier Mes Documents"
data "6 = Dossier Favoris"
data "7 = Dossier Démarrage dans le dossier Programmes du Menu Démarrer"
data "8 = Dossier Récent"
data "9 = Dossier SendTo"
data "10 = Dossier Virtuel contenant les fichiers de la Corbeille"
data "11 = Dossier Menu Démarrer"
data "12 = Dossier Virtuel contenant les fichiers du dossier Mes Documents"
data "13 = Dossier Mes Musiques"
data "14 = Dossier Mes Vidéos"
data "15 ="
data "16 = Dossier physique contenant les objets du Bureau"
data "17 = Dossier Virtuel My Computer"
data "18 = Dossier Virtuel Voisinage réseau"
data "19 = Dossier physique Nethood"
data "20 = Dossier Fonts"
data "21 = Dossier ShellNew"
data "22 = Dossier Menu Démarrer pour All Users"
data "23 = Dossier Programmes dans le menu Démarrer pour All Users"
data "24 = Dossier Démarrage dans le dossier Programmes du Menu Démarrer pour All Users"
data "25 = Dossier Physiques du Bureau pour All Users"
data "26 = Dossier Application Data"
data "27 = Dossier PrintHood"
data "28 = Dossier Application Data dans Local Settings pour le Current User"
data "29 = NT Only"
data "30 = NT Only"
data "31 = Dossier Favoris pour All Users"
data "32 = Dossier Temporary Internet Files"
data "33 = Dossier Cookies"
data "34 = Dossier Historiques"
data "35 = Dossier Physique Application Data pour All users"
data "36 = Répertoire windows"
data "37 = Répertoire System 32 de Windows"
data "38 = Dossier Program Files"
data "39 = Dossier physique de My Pictures pour Current Users"
data "40 = Dossier Physique du Current Users"
data "41 = x86 system directory on RISC systems"
data "42 = x86 Program Files folder on RISC systems"
data "43 = Dossier Common files de Program Files"
data "44 = x86 Program Files Common folder on RISC systems"
data "45 = Dossier Physique ShellNew pour AllUsers"
data "46 = Dossier Physique Documents pour AllUsers"
data "47 = Dossier Physique pour l'administrative tools"
data "48 = Dossier Start MenuPrograms Administrative Tools"
data "49 = Dossier Virtuel contenant les connections réseaux et dial-up"
data "50 ="
data "51 ="
data "52 ="
data "53 = Dossier physique My Music pour AllUsers"
data "54 = Dossier physique My Pictures pour AllUsers"
data "55 = Dossier physique My Video pour AllUsers"
data "56 = Dossier physique Ressources de Windows"
data "57 = Dossier physique Ressources Localisées de Windows"
data "58 ="
data "59 = Dossier CD Burning de Windows"
data "60 = Dossier Virtuel Work Group NetWork"

dll_on "KGF.dll"

for i%=0 to 60
  read s$
  libelles$(i%) = s$
  chemin$ = string$(255," ")
  res% = dll_call2("GetWindowsFoldersPath",i%,adr(chemin$))
  chemin$ = trim$(chemin$)
  dossiers$(i%) = chemin$
  item_add 1,s$
  item_add 2,str$(i%)+" = "+chemin$
next i%

end

sel1:
  i% = item_index(1)
  res% = dll_call2("SelectListBoxItem",handle(2),i%)
  s$ = item_read$(2,i%)
  clipboard_string_copy s$
  res% = dll_call3("SynchronizeListBoxes",0,handle(1),handle(2))
  return
 
sel2:
  i% = item_index(2)
  res% = dll_call2("SelectListBoxItem",handle(1),i%)
  s$ = item_read$(2,i%)
  clipboard_string_copy s$
  res% = dll_call3("SynchronizeListBoxes",0,handle(1),handle(2))
  return

hide 0
execute_wait "cmd /c set |clip"
message CLIPBOARD_STRING_PASTE$
terminate

temp$ = string$(255," ")
res% = dll_call1("GetWindowsTempFolder",adr(temp$))
message "dossier temp = "+trim$(temp$) : ' et non pas tgrimp$ comme Papydall a noté...

execute_wait "cmd /c set t |clip"
message clipboard_string_paste$