Passer au contenu

Comment créer une nouvelle option dans un menu contextuel ?

Solution : en modifiant la Base de registres.

Pour aller plus vite, vous souhaitez obtenir dans un menu contextuel un sous-menu permettant de créer directement un nouveau dossier. Pour cela, vous devez créer un script, puis insérer une nouvelle ligne dans la Base de registres. Suivez scrupuleusement cette astuce pour éviter les erreurs.Créez le dossier où le script va être enregistré en effectuant un double clic sur l’icône Poste de travail, puis sur (C:). Choisissez, dans le menu Fichier, la commande Nouveau, puis Dossier. Tapez le nom du dossier scripts, et appuyez sur la touche du clavier, vous obtenez le dossier scripts.Pour créer le script, nous allons utiliser le Bloc-notes. Cliquez successivement sur [démarrer], Programmes, Accessoires et enfin Bloc-notes. Saisissez ensuite le code ci-dessous. Enregistrez le script en choisissant, dans le menu Fichier, la commande Enregistrer sous.Mémorisez le fichier dans C:scripts. Cliquez dans la zone Nom et tapez nv_dos. Cliquez sur [enregistrer] et quittez le Bloc-notes. Indiquez dans la Base de registres le lieu oú le script s’active. Pour cela, cliquez sur [démarrer] puis sur Exécuter.Dans la zone Ouvrir, saisissez regedit. Choisissez, dans le menu Edition, la commande Rechercher. Dans la zone Rechercher, tapez AllFilesystemObjects et cliquez sur [suivant].Cliquez sur le signe [+] situé devant le dossier AllFilesystemObjects. Puis cliquez avec le bouton droit sur le dossier shell. Dans le menu affiché, choisissez Nouveau puis Clé.
Tapez Nouveau document. Cliquez ensuite avec le bouton droit sur le dossier Nouveau document et, dans le menu, sur Nouveau puis sur Clé.
Saisissez Commande. A droite de la fenêtre, cliquez avec le bouton droit de la souris sur Défaut puis sur Modifier. Tapez wscript C:scripts
v_dos.vbs
. Validez avec le bouton [ok].Quittez la Base de registres. Maintenant. Cliquez avec le bouton droit de la souris sur un dossier. Vous constatez alors que dans le menu contextuel, l’option Nouveau dossier apparaît. Cette option permet de créer un nouveau dossier à lendroit souhaité.Listing :
On error resume next
Set nv = CreateObject(“Scripting.FileSystemObject”)
Do While OK = False
Input = InputBox(“Nom du nouveau dossier: “)
If Input =”” Then Exit Do
If (nv.Folderexists(input)) Then
msg = “le dossier “& Input & ” existe déjà.”
MsgBox (msg)
Else
Set dossier = nv.CreateFolder(Input)
dossier.Path
Exit Do
End If
Loop

🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.


Micro Hebdo