Il est souvent pratique et utile, avant toute modification sur un fichier, de le sauvegarder avant.
J'ai fait ce tout petit script vbs 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 : 07/09/2021 17:34