Discussion :

[rahal1695]

C'est un dossier rempli d'accourcis à peu près tous les paramètres changent et administrative fonction dans Windows 7. Tout ce que vous trouverez dans le Centre d'action, de sauvegarde et de restauration, Autorun, Gadgets Google Desktop, Périphériques et imprimantes - tout est là. Tous jetés dans un emplacement central pour un accès facile.

Créez un nouveau dossier sur le bureau (ou ailleurs) et renommez-le comme ci-dessous:

GodMode.{ED7BA470-8E54-465E-825C-99712043E01C}

[hackoofr]

et pour le partage ==> http://www.developpez.net/forums/d85...oici-d-autres/

[hackoofr]

Pour vous faire plaisir et de gagner du temps a créer ces dossiers spéciaux, j'ai codé ce Vbscript

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Dim Titre,WS,AppData,MonTableau,i,DossierSpecial
Dim fso,basefolder,GodMode,bf,TestFolder
Titre = "Les dossiers spéciaux et cachés de Windows © Hackoo 2014"
Set WS = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
basefolder = ws.SpecialFolders("desktop")'Sur votre Bureau
Set bf = fso.GetFolder(basefolder)
MonTableau = Array(_
"{ED7BA470-8E54-465E-825C-99712043E01C}",_
"{00C6D95F-329C-409a-81D7-C46C66EA7F33}",_
"{0142e4d0-fb7a-11dc-ba4a-000ffe7ab428}",_
"{025A5937-A6BE-4686-A844-36FE4BEC8B6D}",_
"{05d7b0f4-2121-4eff-bf6b-ed3f69b894d9}",_
"{1206F5F1-0569-412C-8FEC-3204630DFB70}",_
"{15eae92e-f17a-4431-9f28-805e482dafd4}",_
"{17cd9488-1228-4b2f-88ce-4298e93e0966}",_
"{1D2680C9-0E2A-469d-B787-065558BC7D43}",_
"{1FA9085F-25A2-489B-85D4-86326EEDCD87}",_
"{208D2C60-3AEA-1069-A2D7-08002B30309D}",_
"{20D04FE0-3AEA-1069-A2D8-08002B30309D}",_
"{2227A280-3AEA-1069-A2DE-08002B30309D}",_
"{241D7C96-F8BF-4F85-B01F-E2B043341A4B}",_
"{4026492F-2F69-46B8-B9BF-5654FC07E423}",_
"{62D8ED13-C9D0-4CE8-A914-47DD628FB1B0}",_
"{78F3955E-3B90-4184-BD14-5397C15F1EFC}")

GodMode = "GodMode"
If Not fso.FolderExists(bf & "\" & GodMode) Then
	bf.subFolders.Add(GodMode) 
End if
Set TestFolder = fso.GetFolder(bf & "\" & GodMode)

For i = LBound(MonTableau) To UBound(MonTableau)
	DossierSpecial = "Hackoo."& MonTableau(i)
	If Not fso.FolderExists(TestFolder & "\" & DossierSpecial) Then
		TestFolder.subFolders.Add(DossierSpecial)
	end if
Next
MsgBox "La création des dossiers spéciaux et cachés de Windows est terminée !",64,Titre

[rahal1695]

Pour vous faire plaisir et de gagner du temps a créer ces dossiers spéciaux, j'ai codé ce Vbscript

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
Option Explicit
Dim Titre,WS,AppData,MonTableau,i,DossierSpecial
Dim fso,basefolder,GodMode,bf,TestFolder
Titre = "Les dossiers spéciaux et cachés de Windows © Hackoo 2014"
Set WS = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
basefolder = ws.SpecialFolders("desktop")'Sur votre Bureau
Set bf = fso.GetFolder(basefolder)
MonTableau = Array(_
"{ED7BA470-8E54-465E-825C-99712043E01C}",_
"{00C6D95F-329C-409a-81D7-C46C66EA7F33}",_
"{0142e4d0-fb7a-11dc-ba4a-000ffe7ab428}",_
"{025A5937-A6BE-4686-A844-36FE4BEC8B6D}",_
"{05d7b0f4-2121-4eff-bf6b-ed3f69b894d9}",_
"{1206F5F1-0569-412C-8FEC-3204630DFB70}",_
"{15eae92e-f17a-4431-9f28-805e482dafd4}",_
"{17cd9488-1228-4b2f-88ce-4298e93e0966}",_
"{1D2680C9-0E2A-469d-B787-065558BC7D43}",_
"{1FA9085F-25A2-489B-85D4-86326EEDCD87}",_
"{208D2C60-3AEA-1069-A2D7-08002B30309D}",_
"{20D04FE0-3AEA-1069-A2D8-08002B30309D}",_
"{2227A280-3AEA-1069-A2DE-08002B30309D}",_
"{241D7C96-F8BF-4F85-B01F-E2B043341A4B}",_
"{4026492F-2F69-46B8-B9BF-5654FC07E423}",_
"{62D8ED13-C9D0-4CE8-A914-47DD628FB1B0}",_
"{78F3955E-3B90-4184-BD14-5397C15F1EFC}")

GodMode = "GodMode"
If Not fso.FolderExists(bf & "\" & GodMode) Then
	bf.subFolders.Add(GodMode) 
End if
Set TestFolder = fso.GetFolder(bf & "\" & GodMode)

For i = LBound(MonTableau) To UBound(MonTableau)
	DossierSpecial = "Hackoo."& MonTableau(i)
	If Not fso.FolderExists(TestFolder & "\" & DossierSpecial) Then
		TestFolder.subFolders.Add(DossierSpecial)
	end if
Next
MsgBox "La création des dossiers spéciaux et cachés de Windows est terminée !",64,Titre

salut hackoofr
Merci