Comment montrer/cacher rapidement les dossier

Résolu
COQs Messages postés 44 Statut Membre -  
 pcv_only/ -
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

  • 1
  • 2
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.

Généré automatiquement par IA
sur la base des meilleures réponses
  1. pierre.d51 Messages postés 1635 Statut Contributeur 1 270
     
    non je ne crois pas
    0
  2. COQs Messages postés 44 Statut Membre
     
    ^^
    Je crois pas non plus...
    Mais sais-t-on jamais!
    0
  3. COQs Messages postés 44 Statut Membre
     
    Personne n'a d'idée?
    :-(
    0
  4. dubcek Messages postés 18627 Date d'inscription   Statut Contributeur Dernière intervention   5 659
     
    Il faut commuter une clef de registre

    le No 155 fait cela, c'est un petit script vbs:

    155. Enable/Disable Show Hidden Files/Folders
    http://ww11.kellys-korner-xp.com/xp_tweaks.htm
    0
  5. Vous n’avez pas trouvé la réponse que vous recherchez ?

    Posez votre question
  6. COQs Messages postés 44 Statut Membre
     
    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
  7. COQs Messages postés 44 Statut Membre
     
    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
  8. dubcek Messages postés 18627 Date d'inscription   Statut Contributeur Dernière intervention   5 659
     
    Un double-clique sur le fichier showhiddenfiles.vbs va activer / désactiver l'affichage. Faire un icône sur le bureau ou le mettre dans un menu.

    Le No 392, à droite, active / désactive le réseau:

    Enable/Disable - Network Connection
    http://ww1.kellys-korner-xp.com/regs_edits/ToggleNetConnection.vbs
    0
  9. COQs Messages postés 44 Statut Membre
     
    Merci beaucoup dubcek, tu me facilite la vie!
    ++
    0
  10. COQs Messages postés 44 Statut Membre
     
    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
  11. dubcek Messages postés 18627 Date d'inscription   Statut Contributeur Dernière intervention   5 659
     
    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. COQs Messages postés 44 Statut Membre
       
      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. dubcek Messages postés 18627 Date d'inscription   Statut Contributeur Dernière intervention   5 659
       
      Faut il modifier :
      sNetFldr = "Network Connections"


      logiquement oui, effectivement pour Windows en français
      sNetFldr = "Connexions réseau"
      0
  12. COQs Messages postés 44 Statut Membre
     
    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
  13. dubcek Messages postés 18627 Date d'inscription   Statut Contributeur Dernière intervention   5 659
     
    Pas oublié de guillemet vers sConnName = "Connexion au réseau local" ?
    0
  14. COQs Messages postés 44 Statut Membre
     
    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
  15. pcv_only/
     
    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
  16. COQs Messages postés 44 Statut Membre
     
    YES! Ca marche!

    Merci dubcek et pcv_only/

    Merci les PRO !
    0
  17. pcv_only/
     
    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
  18. pcv_only/
     
    A oui, tu n'as pas besoin de cliquer sur ok, ça se ferme tout seul...
    0
  19. COQs Messages postés 44 Statut Membre
     
    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