Windows 98 dispose, avec Microsoft Backup, d’un outil de sauvegarde puissant mais un peu difficile à utiliser. Si l’on n’effectue que des sauvegardes occasionnelles, il existe une manière plus simple de procéder. Elle consiste à écrire un petit programme (un script) contenant les commandes à exécuter. Dans notre exemple, nous allons sauvegarder sur disquette les documents Word contenus dans le dossier C:Mes Documents. La sauvegarde ne concernera que les fichiers ayant subi des modifications depuis la dernière sauvegarde. Pour cela, recopiez le listing ci-dessous dans le Bloc-notes et enregistrez-le sous le nom Sauve.vbs. Exécutez-le en cliquant deux fois sur son icône. Pour copier d’autres types de documents, remplacez simplement le type Document Microsoft Word par celui indiqué dans l’Explorateur. Par exemple, Document Texte pour sauvegarder des fichiers texte (extension .txt).Listing :
Dim fso, fldr
Dim f1, fc, attrib
WScript.Echo “Insérez une disquette dans le lecteur”
Set fso = CreateObject(“Scripting.FileSystemObject”)
Set fldr = fso.GetFolder(“C:Mes Documents”)
Set fc = fldr.Files
For Each f1 in fc
‘modifiez le type de fichier ci dessous
If f1.type= “Document Microsoft Word” Then
attrib = f1.attributes
If attrib And 32 then
f1.copy(“A:”)
f1.attributes=0
End If
End If
Next
WScript.Echo “Sauvegarde terminée”
🔴 Pour ne manquer aucune actualité de 01net, suivez-nous sur Google Actualités et WhatsApp.
