IdentifiantMot de passe
Loading...
Mot de passe oublié ?Je m'inscris ! (gratuit)
Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

Windows Discussion :

Windows 7 cache en fait plusieurs GodModes : en voici d'autres


Sujet :

Windows

  1. #81
    Expert éminent
    Avatar de hackoofr
    Homme Profil pro
    Enseignant
    Inscrit en
    juin 2009
    Messages
    3 736
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 46
    Localisation : Tunisie

    Informations professionnelles :
    Activité : Enseignant

    Informations forums :
    Inscription : juin 2009
    Messages : 3 736
    Points : 9 032
    Points
    9 032
    Par défaut

    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

  2. #82
    Rédacteur/Modérateur


    Homme Profil pro
    Développeur .NET
    Inscrit en
    février 2004
    Messages
    19 875
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 40
    Localisation : France, Paris (Île de France)

    Informations professionnelles :
    Activité : Développeur .NET
    Secteur : High Tech - Éditeur de logiciels

    Informations forums :
    Inscription : février 2004
    Messages : 19 875
    Points : 39 710
    Points
    39 710
    Par défaut
    Citation Envoyé par hackoofr Voir le message

    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

Discussions similaires

  1. Windows 7 cache en fait plusieurs GodModes : en voici d'autres
    Par Katleen Erna dans le forum Actualités
    Réponses: 79
    Dernier message: 23/08/2010, 10h52
  2. Serveur Windows 2003 qui ne fait pas de SSL
    Par Antoun dans le forum Windows Serveur
    Réponses: 3
    Dernier message: 05/07/2008, 17h01
  3. Centrer un caption qui fait plusieurs lignes
    Par stressou dans le forum Mise en forme
    Réponses: 1
    Dernier message: 26/11/2007, 17h20
  4. Cache partagé sur plusieurs XMLServices
    Par Sylvain James dans le forum XMLRAD
    Réponses: 2
    Dernier message: 04/10/2005, 14h21

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo