Comment montrer/cacher rapidement les dossier

Résolu/Fermé

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011 - 28 mai 2007 à 15:50
pcv_only/ - 2 juil. 2007 à 23:34

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

A voir également:

Comment montrer/cacher rapidement les dossier
Cacher conversation whatsapp - Guide
Dossier appdata - Guide
Mettre un mot de passe sur un dossier - Guide
Dossier rar - Guide
Comment cacher les amis sur facebook - Guide

39 réponses

Réponse 1 / 39

pierre.d51 Messages postés 1505 Date d'inscription mercredi 21 février 2007 Statut Contributeur Dernière intervention 22 août 2012 1 270
28 mai 2007 à 15:58

non je ne crois pas

Réponse 2 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
28 mai 2007 à 16:05

^^
Je crois pas non plus...
Mais sais-t-on jamais!

Réponse 3 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
29 mai 2007 à 13:32

Personne n'a d'idée?
:-(

Réponse 4 / 39

dubcek Messages postés 18718 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 22 mars 2024 5 615
29 mai 2007 à 13:53

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

Vous n’avez pas trouvé la réponse que vous recherchez ?

Posez votre question

Réponse 5 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
29 mai 2007 à 20:54

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

Réponse 6 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
29 mai 2007 à 22:15

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 :-)

Réponse 7 / 39

dubcek Messages postés 18718 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 22 mars 2024 5 615
30 mai 2007 à 13:44

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

Réponse 8 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
30 mai 2007 à 13:49

Merci beaucoup dubcek, tu me facilite la vie!
++

Réponse 9 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
2 juin 2007 à 01:16

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

Réponse 10 / 39

dubcek Messages postés 18718 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 22 mars 2024 5 615
2 juin 2007 à 15:17

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

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
5 juin 2007 à 10:52

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à!

dubcek Messages postés 18718 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 22 mars 2024 5 615
5 juin 2007 à 12:27

Faut il modifier :
sNetFldr = "Network Connections"

logiquement oui, effectivement pour Windows en français
sNetFldr = "Connexions réseau"

Réponse 11 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
5 juin 2007 à 16:20

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

Réponse 12 / 39

dubcek Messages postés 18718 Date d'inscription lundi 15 janvier 2007 Statut Contributeur Dernière intervention 22 mars 2024 5 615
5 juin 2007 à 16:50

Pas oublié de guillemet vers sConnName = "Connexion au réseau local" ?

Réponse 13 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
5 juin 2007 à 19:24

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!

Réponse 14 / 39

pcv_only/
5 juin 2007 à 22:31

attend je te prépare ça...

Réponse 15 / 39

pcv_only/
5 juin 2007 à 22:40

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

Réponse 16 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
5 juin 2007 à 22:56

YES! Ca marche!

Merci dubcek et pcv_only/

Merci les PRO !

Réponse 17 / 39

pcv_only/
5 juin 2007 à 23:11

attend, nouvelle modif en vue...

Réponse 18 / 39

pcv_only/
5 juin 2007 à 23:13

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

Réponse 19 / 39

pcv_only/
5 juin 2007 à 23:14

A oui, tu n'as pas besoin de cliquer sur ok, ça se ferme tout seul...

Réponse 20 / 39

COQs Messages postés 44 Date d'inscription lundi 28 mai 2007 Statut Membre Dernière intervention 8 mars 2011
6 juin 2007 à 16:41

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?

Discussions similaires

Extraire le contenu de plusieurs fichiers

comment donner les droits sur fichier partage

Cacher les membres du groupe WhatsApp

Où trouver le dossier des favoris de Chrome ?

Discussions similaires

Newsletters