Discussion :

[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

[tomlev]

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

Merci

Par contre, pour info, il y en a quelques un qui ne marchent pas sous Windows 8 :

- {00C6D95F-329C-409a-81D7-C46C66EA7F33}
- {62D8ED13-C9D0-4CE8-A914-47DD628FB1B0}
- {78F3955E-3B90-4184-BD14-5397C15F1EFC}
- {0142E4D0-FB7A-11DC-BA4A-000FFE7AB428}

Et ce serait cool de mettre les vrais noms des dossiers si possible