REM ****************************************************************
REM * Name : save_list_of_files_with_date_time_stamp.vbs *
REM * Description : sauvegarder des fichiers avec horodatage *
REM * Date : 2008-12-03 *
REM * Version : 1.00 *
REM * Author : Xavier GANGAND *
REM * Update : *
REM ****************************************************************
Option Explicit
Dim oFSO, g_ListFile
Set oFSO=CreateObject("Scripting.FileSystemObject")
Dim g_destFolder
Init
Copy_Files
Sub Copy_Files
REM *****************************************************
REM *
REM *****************************************************
On Error Resume Next
Dim sFile, sSuffix, n
Do
sFile = g_ListFile.ReadLine
If oFSO.FileExists(sFile) Then
sSuffix = Year(Now) & fmt2(Month(Now)) & fmt2(Day(Now)) & fmt2(Hour(Now)) & fmt2(Minute(Now))
If oFSO.FileExists(sFile) Then
REM vérifier ultérieurement si le fichier destination existe déjà
REM dans ce cas ajouter un numéro de version tant que le fichier dest existe
REM n = 1
REM Do
REM If oFSO.FileExists(
REM Loop
oFSO.FileCopy sFile, Check(g_destFolder) & oFSO.GeBaseName(sFile) & "_" & sSuffix
End If
Loop Until g_ListFile.AtEndOfStream
End Sub
Sub Check(s)
If Right(s,1) = "\" Then Check = s Else Check = s & "\"
End Function
Sub fmt2(s)
If Len(s) > 2 Then fmt2=s Else fmt2=String(2-Len(s), "0") & s
End Function
Sub Init
REM *****************************************************
REM *
REM *****************************************************
On Error Resume Next
Set g_ListFile = oFSO.OpenTextFile("list.txt")
g_destFolder = g_ListFile.ReadLine
If oFSO.FolderExists(g_destFolder) = False Then
Syntax
Wscript.Quit(0)
End If
End Sub
Sub Syntax
REM *****************************************************
REM * Syntaxe
REM *****************************************************
Msgbox _
"save_list_of_files_with_date_time_stamp.vbs est un utilitaire destiné à sauvegarder rapidement" & vbcrlf & _
"une liste de fichier en y ajoutant la date et l'heure du moment même de la sauvegarde." & vbcrlf & _
"Il est particulièrement adapté aux développeurs, scripteurs, ou à ceux qui modifient" & vbcrlf & _
"des fichiers importants." & vbcrlf & _
"" & vbcrlf & _
"save_list_of_files_with_date_time_stamp.vbs se sert 'un fichier de données : list.txt." & vbcrlf & _
"Le fichier list.txt doit contenir en première ligne le dossier destination," & vbcrlf & _
"puis sur toutes les autres lignes les fichiers (noms complets sauf si dans dossier courant)" & vbcrlf & _
"à sauvegarder avec horodatage." & vbcrlf & _
"" & vbcrlf & _
"save_list_of_files_with_date_time_stamp.vbs se sert 'un fichier de données : list.txt." & vbcrlf & _
"" & vbcrlf & _
"Améliorations envisagées :" & vbcrlf & _
" - copie dans plusieurs dossiers."
" - copie sur serveur ftp" & vbcrlf & _
" - envoi de mail avec le(s) fichier(s) en pièce jointe" & vbcrlf & _
End Sub