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
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.