Comment montrer/cacher rapidement les dossier

Résolu
Bonjour a tous!

Je souhaite programmer une touche de mon clavier (G15 logitruc) afin de monter ou cacher les dossiers cachés (sans avoir besoin d'aller dans "option des dossiers")

Quelqu'un connait-il le chemin dans windows (s'il y en a un) ou je peux trouver la fonction pour la programmer sur une de mes touches.
(chemin du style c:/windows/system32/machin/parla/biencaché/sijeclicdessustuapparais...)
^^

Merci les PROs
Configuration: Windows XP
Firefox 2.0.0.3

39 réponses

Résumé de la discussion

La demande porte sur la programmation d'une touche de clavier pour afficher ou masquer les dossiers cachés sous Windows XP sans passer par l'option dédiée. Plusieurs solutions existent, notamment un script VBS "Enable/Disable Show Hidden Files/Folders", une clé de registre No 155, ou encore l'outil netsh.exe; des exemples comme ToggleNetConnection.vbs expliquent comment basculer l'affichage des éléments cachés. Des échanges évoquent aussi l'usage de DOSBOX pour exécuter des scripts sur des environnements non DOS et des retours indiquent que certaines méthodes nécessitent des droits administratifs et peuvent produire des comportements variables. En cas de besoin, netsh et les scripts VBS peuvent être adaptés à différentes versions de Windows, mais l'efficacité dépend de la configuration système et de la gestion des droits.

Bobot (l’IA à votre service)
  1. Contributeur
    non je ne crois pas
    0
    1. ^^
      Je crois pas non plus...
      Mais sais-t-on jamais!
      0
      1. Cool!
        C'est exactement ce que je cherchais...
        Mais c'est un .vbs, comment ca marche?
        Je l'ai telechargé, activé, ca a dis que c'etais bon, mais comment j'active ou desactive la fonction?
        Merci
        0
        1. Au passage, j'aimerais faire de meme pour activer et desactiver les connections reseau...
          Si tu peux me dire en meme temps comment faire!
          Merci :-)
          -1
          1. Merci beaucoup dubcek, tu me facilite la vie!
            ++
            0
            1. Salut,
              j'ai essayé 392 Enable/Disable - Network Connection
              mais il marche pas chez moi!
              Il me dit "couldn't find 'network connection' folder"

              J'ai rapidement regardé sur le Kellys Korner, mais il y a tellement de trucs que je m'y perd!!!!

              Y a t il une autre solution pour les connections reseaus, ou y a t il quelque chose a faire pour que le "392" marche?

              Merci
              0
              1. Contributeur
                Effectivement, il faut modifier le fichier ToggleNetConnection.vbs au début:

                changer : sConnName = "Wireless Network Connection"
                par le nom de la connection qui se trouve dans le panneau de config. -> connexions réseau
                0
                1. Merci... mais ca me fait toujours pareil!

                  J'ai mis :
                  sConnName = "Connexion au réseau local"

                  Faut il modifier :
                  sNetFldr = "Network Connections"

                  Et en cas de modif je met quoi??

                  Desolé de te monipoliser du temps, je navigue en eaux troubles là!
                  0
                2. Contributeur
                  Faut il modifier :
                  sNetFldr = "Network Connections"


                  logiquement oui, effectivement pour Windows en français
                  sNetFldr = "Connexions réseau"
                  0
              2. Evidemment qu'il fallait le modifier, c'etait marqué juste au dessus!
                Si j'avais appris a lire, et/ou a ouvrir mes yeux...

                Malheureusement il me donne un message d'erreur suivant :
                Erreur : objet requis :"
                Code : 800A01A8
                Sur la ligne 70 caracter 3
                Voici les lignes 69,70,71 :

                If bEnabled Then
                oDisconnectVerb.DoIt
                sMsg = sConnName & " has been disabled."

                Bref, ca devient l'usine a gaz!
                J'ai retelechargé le fichier au cas ou j'ai fait une fausse manip, ca change rien...

                A moins que ce soit juste une connerie, on va laisser tomber!
                Je cliquerais sur mon bon vieux raccourci au lieu de binder ma touche, snif!

                MERCI encore
                0
                1. Contributeur
                  Pas oublié de guillemet vers sConnName = "Connexion au réseau local" ?
                  0
                  1. non, j'ai verifier 3 fois ce que je faisais...

                    sConnName = "Connexion au réseau local"
                    sNetFldr = "Connexions réseau"

                    J'ai fait des copier coller pour eviter les fautes de frappe lorsque j'ai modifier les informations!
                    0
                    1. Option Explicit

                      ' =================================================================================================
                      ' ToggleNetConnection.vbs - Bill James - 13 Dec 2004
                      ' Utility to Enable or Disable a network connection.
                      ' Settings to edit below:
                      ' sConnName: The name of the connection as viewed in the Windows Network Connections folder
                      ' sNetFldr: The name of the Windows Network Connections folder. In Windows 2000 this is called
                      ' "Network and Dial-up Connections", in Windows XP it is called "Network Connections".
                      ' =================================================================================================

                      ' ========================= SETTINGS =========================
                      sConnName ="Connexion au réseau local"
                      sNetFldr = "Connexions réseau"
                      ' ============================================================

                      Dim sConnName, sNetFldr
                      Dim sConnect, sDisconnect
                      sConnect = "&Activer" 'NIC or Wireless Enable
                      sDisconnect = "&Désactiver" 'NIC or Wireless Disable

                      Dim FldrItem, oNetConn
                      For Each FldrItem in CreateObject("Shell.Application").Namespace(3).Items
                      If FldrItem.Name = sNetFldr Then
                      Set oNetConn = FldrItem.GetFolder
                      Exit For
                      End If
                      next

                      If Not IsObject(oNetConn) Then
                      MsgBox "Couldn't find '" & sNetFldr & "' folder"
                      WScript.Quit
                      End If

                      Dim oLanConnection
                      For Each FldrItem in oNetConn.items
                      If LCase(FldrItem.Name) = LCase(sConnName) Then
                      Set oLanConnection = FldrItem
                      Exit For
                      End If
                      next

                      If Not IsObject(oLanConnection) Then
                      MsgBox "Couldn't find '" & sConnName & "' item"
                      WScript.Quit
                      End If

                      Dim bEnabled
                      bEnabled = True
                      Dim oVerb, oConnectVerb, oDisconnectVerb
                      For Each oVerb in oLanConnection.verbs

                      If oVerb.Name = sConnect Then
                      Set oConnectVerb = oVerb
                      bEnabled = False
                      End If
                      If oVerb.Name = sDisconnect Then
                      Set oDisconnectVerb = oVerb
                      End If
                      Next

                      Dim sMsg
                      If bEnabled Then
                      oDisconnectVerb.DoIt
                      sMsg = sConnName & " has been disabled."
                      Else
                      oConnectVerb.DoIt
                      sMsg = sConnName & " has been enabled."
                      End If

                      ' A sleep is needed, might be able to use less
                      WScript.Sleep 2000

                      CreateObject("WScript.Shell").Popup sMsg, 3, "Toggle Network Connection"

                      'fin de code ------------------------------------------------------------------------------

                      voilà, tu recopies tout ce qui est écrit ci dessus et tu le colles dans ton fichier ToggleNetConnection.vbs
                      0
                      1. YES! Ca marche!

                        Merci dubcek et pcv_only/

                        Merci les PRO !
                        0
                        1. Option Explicit

                          ' =================================================================================================
                          ' ToggleNetConnection.vbs - Bill James - 13 Dec 2004
                          ' Utility to Enable or Disable a network connection.
                          ' Settings to edit below:
                          ' sConnName: The name of the connection as viewed in the Windows Network Connections folder
                          ' sNetFldr: The name of the Windows Network Connections folder. In Windows 2000 this is called
                          ' "Network and Dial-up Connections", in Windows XP it is called "Network Connections".
                          ' =================================================================================================

                          ' ========================= SETTINGS =========================
                          sConnName ="Connexion au réseau local"
                          sNetFldr = "Connexions réseau"
                          ' ============================================================

                          Dim sConnName, sNetFldr
                          Dim sConnect, sDisconnect
                          sConnect = "&Activer" 'NIC or Wireless Enable
                          sDisconnect = "&Désactiver" 'NIC or Wireless Disable

                          Dim FldrItem, oNetConn
                          For Each FldrItem in CreateObject("Shell.Application").Namespace(3).Items
                          If FldrItem.Name = sNetFldr Then
                          Set oNetConn = FldrItem.GetFolder
                          Exit For
                          End If
                          next

                          If Not IsObject(oNetConn) Then
                          MsgBox "Couldn't find '" & sNetFldr & "' folder"
                          WScript.Quit
                          End If

                          Dim oLanConnection
                          For Each FldrItem in oNetConn.items
                          If LCase(FldrItem.Name) = LCase(sConnName) Then
                          Set oLanConnection = FldrItem
                          Exit For
                          End If
                          next

                          If Not IsObject(oLanConnection) Then
                          MsgBox "Couldn't find '" & sConnName & "' item"
                          WScript.Quit
                          End If

                          Dim bEnabled
                          bEnabled = True
                          Dim oVerb, oConnectVerb, oDisconnectVerb
                          For Each oVerb in oLanConnection.verbs

                          If oVerb.Name = sConnect Then
                          Set oConnectVerb = oVerb
                          bEnabled = False
                          End If
                          If oVerb.Name = sDisconnect Then
                          Set oDisconnectVerb = oVerb
                          End If
                          Next

                          Dim sMsg
                          If bEnabled Then
                          oDisconnectVerb.DoIt
                          sMsg = "Désactivation en cours ..."
                          CreateObject("WScript.Shell").Popup sMsg, 3, sConnName, vbInformation

                          Else
                          oConnectVerb.DoIt
                          ' sMsg = sConnName & " has been enabled."
                          End If

                          ' A sleep is needed, might be able to use less
                          WScript.Sleep 2000
                          0
                          1. A oui, tu n'as pas besoin de cliquer sur ok, ça se ferme tout seul...
                            0
                            1. Encore mieux ;-)
                              Merci!!!!!

                              J'aimerais aussi activer/desactiver MES cartes sons de la meme maniere?
                              En faite je voudrais passer de l'une a l'autre d'un simple clic, donc activer l'une en desactivant l'autre et vis-versa...
                              Je cree un nouveau sujet, ou vous pouvez me repondre dans la foulée?
                              0
                              • 1
                              • 2