J'ai fait ce tout petit script qui permet d'un clic droit de le sauvegarder avec l'extension bak.
En cas de pépin, il suffira de retirer l'extension bak pour restaurer le fichier original.
Testé sur Windows 10.
Fichier vbs
option explicit
dim nbArgs, fso, fichier, path, fichier_bak
nbArgs = WScript.Arguments.Count
if nbArgs = 1 then
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
fichier = fso.GetFileName(WScript.Arguments(0))
path = fso.GetParentFolderName(WScript.Arguments(0)) & "\"
fichier_bak = fichier & ".bak"
if fso.FileExists(path & fichier_bak) then
MsgBox "Le fichier [" & fichier_bak & "] existe déjà.",vbExclamation,"Sauvegarde"
else
fso.CopyFile path & fichier, path & fichier_bak
MsgBox "Création du fichier [" & fichier_bak & "] effectuée.",vbInformation,"Sauvegarde"
end if
else
MsgBox "Ce script doit-être exécuté à partir du menu contextuel d'un fichier.",vbExclamation,"Sauvegarde"
end if
Set fso = Nothing
Les fichiers reg
Inclure la fonction dans le menu contextuel des fichiers
Windows Registry Editor Version 5.00
[HKEY_CLASSES_ROOT\*\shell\saveBak]
@="Sauvegarde BAK"
"icon"="%SystemRoot%\\system32\\shell32.dll,258"
[HKEY_CLASSES_ROOT\*\shell\saveBak\command]
@="wscript.exe D:\\AppData\\Programmes\\saveBak\\save_bak.vbs \"%1\""
"DelegateExecute"=""
Changer la ligne @="wscript.exe D:\\AppData\\Programmes\\saveBak\\save_bak.vbs \"%1\"" suivant l'emplacement de save_bak.vbs
Retirer la fonction du menu contextuel
Windows Registry Editor Version 5.00
[-HKEY_CLASSES_ROOT\*\shell\saveBak]
Le résultat en images
Téléchargement
save_bak.zip (save_bak.vbs, save_bak_add.reg, save_bak_remove.reg)
Mis à jour le : 15/09/2018 14:07