Menu contextuel windows 10 création fichier texte

Ce petit script vbs permet en faisant un clic droit sur un fichier de créer automatiquement un document texte du même nom. Pratique et rapide.
Parfois on télécharge des fichiers, et plus tard on ne sait plus trop ce que c'est.
En ayant un document texte du même nom, on peut mettre quelques explications dans ce fichier texte.

C'est rapide, pas la peine de faire renommer le fichier, copier le nom, faire nouveau document texte, renommer le nouveau document texte... Un clic droit sur le fichier > clic Créer un document texte... et voilà, c'est fait...

Testé sur Windows 10 & 11.

Le script vbs

' Ce petit script permet lors d'un clic droit sur un fichier, de créer un document texte
' du même nom que ce fichier.
' auteur   : nonoweb
' site web : https://www.nonoweb.net/
' modification : 09/08/2021
option explicit
dim nbArgs, fso, fichier, path, fichier_txt, pos
nbArgs = WScript.Arguments.Count
if nbArgs = 1 then
		Set fso = WScript.CreateObject("Scripting.FileSystemObject")
		fichier = fso.GetFileName(WScript.Arguments(0))
		pos = InStrRev(fichier, ".")
		fichier = Left(fichier, pos-1)
		path = fso.GetParentFolderName(WScript.Arguments(0)) & "\"
		fichier_txt = fichier & ".txt"
		if fso.FileExists(path & fichier_txt) then
				MsgBox "Le fichier [" & fichier_txt & "] existe déjà.",vbExclamation,"Création document TXT"
			else
				fso.CreateTextFile path & fichier_txt
				MsgBox "Création du fichier [" & fichier_txt & "] effectuée.",vbInformation,"Création document TXT"
		end if
else
	MsgBox "Ce script doit-être exécuté à partir du menu contextuel d'un fichier.",vbExclamation,"Création document TXT"
end if
Set fso = Nothing
WScript.Quit

Les fichiers reg

Inclure la fonction dans le menu contextuel des fichiers

docTXT-001

docTXT-002

Windows Registry Editor Version 5.00

[HKEY_CLASSES_ROOT\*\shell\docTXT]
@="Créer un document texte"
"icon"="%SystemRoot%\\system32\\shell32.dll,70"

[HKEY_CLASSES_ROOT\*\shell\docTXT\command]
@="wscript.exe D:\\AppData\\Programmes\\docTXT\\docTXT.vbs \"%1\""
"DelegateExecute"=""

Changer la ligne @="wscript.exe D:\\AppData\\Programmes\\docTXT\\docTXT.vbs \"%1\"" suivant l'emplacement de docTXT.vbs

Retirer la fonction du menu contextuel

Windows Registry Editor Version 5.00

[-HKEY_CLASSES_ROOT\*\shell\docTXT]

Le résultat en images

docTXT-003

docTXT-004

Téléchargement

docTXT.zip ( l'archive contient ces 3 fichiers : docTXT.vbs, docTXT-add.reg, docTXT-remove.reg)

Laisser un commentaire (Seuls le nom et le commentaire sont requis).
Les commentaires sont modérés avant publication.

 
Sélection smileys