Automatiser la sauvegarde de fichiers sur Windows avec un script VBS

Vidéo illustrative via YouTube

Principe de fonctionnement du script de sauvegarde

La sauvegarde de vos fichiers importants est une tâche essentielle pour garantir leur sécurité. Que ce soit pour protéger vos documents personnels, des projets de travail ou d'autres types de données sensibles, il est crucial de mettre en place une solution simple et efficace. Dans cet article, je vous propose un script en VBScript (VBS) que vous pouvez facilement utiliser pour sauvegarder vos fichiers et dossiers importants sur un autre emplacement de votre choix, tel qu'un disque dur externe ou une clé USB.

Le script que je vous présente ici permet de copier l'intégralité de vos fichiers et dossiers d'un emplacement à un autre, tout en préservant leur structure de sous-dossiers. Il vous suffit de définir deux éléments :

• Le dossier source, c'est à dire l'emplacement où se trouvent vos fichiers à sauvegarder.
• Le dossier de destination, l'endroit où vous souhaitez que les fichiers soient copiés, tel qu'un autre répertoire sur votre PC, un disque externe ou une clé USB.

Étapes du fonctionnement du script

Vous devez tout d'abord spécifer l'emplacement des fichiers à sauvegarder : Le script commence par définir le dossier source contenant les fichiers que vous souhaitez sauvegarder. Il vous permet de choisir facilement ce dossier ; il en va de même pour le dossier de destination.

Avant son exécution, le script vérifie l'existence du dossier source : Avant de procéder à la sauvegarde, le script vérifie que le dossier source existe bien. Si ce n'est pas le cas, un message d'erreur vous en informe.

Il effectue la même opération pour vérifier la disponibilité du lecteur de destination : Il s'assure que le lecteur de destination, par exemple, votre clé USB ou disque dur externe, est connecté et accessible. Si le lecteur est introuvable, un autre message d'erreur vous avertira et le script s'arrêtera.

Puis si cela est nécessaireil crée le dossier de destination : Si le dossier de destination n'existe pas, le script le crée automatiquement pour y placer les fichiers copiés.

Ensuite est effectuée la sauvegarde des fichiers et sous-dossiers : Le script copie tous les fichiers du dossier source vers le dossier de destination, y compris les sous-dossiers et leur contenu. Cela permet de garantir que la structure de votre répertoire est conservée.

Pour terminer le script affiche un message de fin de sauvegarde : Une fois la copie terminée, un message de confirmation s'affiche pour vous informer que la sauvegarde a été réalisée avec succès.

Code source du script

' On demande à l'utilisateur où il souhaite sauvegarder les fichiers
Set objShell = CreateObject("WScript.Shell")
dossierSource = "C:\Users\PC\Desktop\source"  ' Dossier source (à modifier selon vos besoins)
dossierDestination = "C:\Users\PC\Desktop\destination"  ' Dossier de destination de la sauvegarde (modifier selon l'emplacement de votre sauvegarde)

' On crée une instance du FileSystemObject
Set FSO = CreateObject("Scripting.FileSystemObject")

' On vérifie si le dossier source existe
If Not FSO.FolderExists(dossierSource) Then
MsgBox "Le dossier source n'existe pas. Vérifiez le chemin.", vbCritical, "Erreur"
WScript.Quit
End If

' On vérifie si le lecteur du dossier de destination existe
If Not FSO.DriveExists(FSO.GetDriveName(dossierDestination)) Then
MsgBox "Le lecteur de destination n'est pas disponible. Vérifiez que le lecteur est bien connecté.", vbCritical, "Erreur"
WScript.Quit
End If

' On vérifie si le dossier de destination existe, sinon le crée
If Not FSO.FolderExists(dossierDestination) Then
FSO.CreateFolder(dossierDestination)
End If

' On copie les fichiers du dossier source vers le dossier de destination
' Puis on copie les fichiers du dossier source
Set dossier = FSO.GetFolder(dossierSource)
For Each fichier In dossier.Files
FSO.CopyFile fichier.Path, dossierDestination & "\" & fichier.Name
Next

' On copie également les sous-dossiers et leur contenu
For Each sousDossier In dossier.Subfolders
FSO.CopyFolder sousDossier.Path, dossierDestination & "\" & sousDossier.Name
Next

' On affiche un message de fin de sauvegarde
MsgBox "Sauvegarde terminée avec succès !", vbInformation, "Sauvegarde"

Automatiser l'exécution du script de sauvegarde au démarrage du PC

Pour automatiser l'exécution du script au démarrage de votre PC, vous pouvez placer le fichier dans le dossier de démarrage de Windows. Cela garantit que le script s'exécutera à chaque démarrage de l'ordinateur.

• Appuyez sur les touches Win + R pour ouvrir la boîte de dialogue Exécuter.
• Tapez shell:startup et appuyez sur Entrée.
• Cela ouvre le dossier de démarrage.
• Copiez y le fichier vbs.