Sauvegarde de fichiers en BAK

Il est souvent pratique et utile, avant toute modification sur un fichier, de le sauve-garder avant.

J'ai fait ce tout petit script vbs qui permet d'un clic droit sur un fichier de créer une copie de sauvegarde de ce dernier (en lui ajoutant l'extension .bak).

En cas de pépin, il suffira de retirer l'extension .bak pour restaurer le fichier original.

Testé sur Windows 10 & 11.

Le script 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)

Source : https://www.nonoweb.net/sauvegarde-de-fichiers-en-bak