Comment montrer/cacher rapidement les dossier
Résolu
COQs
Messages postés
44
Date d'inscription
Statut
Membre
Dernière intervention
-
pcv_only/ -
pcv_only/ -
A voir également:
- Comment montrer/cacher rapidement les dossier
- Télécharger film d'action gratuitement et rapidement - Télécharger - TV & Vidéo
- Dossier appdata - Guide
- Cacher un dossier windows - Guide
- Impossible de supprimer un dossier - Guide
- Comment cacher les amis sur facebook - Guide
39 réponses
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
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
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
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
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 :-)
Si tu peux me dire en meme temps comment faire!
Merci :-)
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
Le No 392, à droite, active / désactive le réseau:
Enable/Disable - Network Connection
http://ww1.kellys-korner-xp.com/regs_edits/ToggleNetConnection.vbs
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
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
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
changer : sConnName = "Wireless Network Connection"
par le nom de la connection qui se trouve dans le panneau de config. -> connexions réseau
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
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
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!
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!
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
' =================================================================================================
' 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
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
' =================================================================================================
' 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