Copier et dater à la volée un fichier en VBscript

Je vous propose un script en VBS permettant de copier un fichier et de le renommer à la volée en lui ajoutant la date et l’heure de l’éxécution du script. Très pratique pour archiver automatiquement des fichiers. Le répertoire destination bien entendu peut être différent.

Dans cet exemple le fichier \\serveur\partage\file.dmp sera copié dans un répertoire \\serveur\partage\archives et se nommera file_ddmmyyhhmmss.dmp

ou ddmmyyhhmmss correspondra à la date et à l’heure de l’éxécution du script.

Voici une offre de notre annonceur


'Déclaration des variables
Dim Date_Maintenant, Heure_Maintenant, FSCopie

'Formatage de la date et de l'heure
Date_Maintenant = date
Date_Maintenant = day(Date_Maintenant) & month(Date_Maintenant) & year(Date_Maintenant)
Heure_Maintenant = time
Heure_Maintenant = Hour(Heure_Maintenant) & Minute(Heure_Maintenant) & Second(Heure_Maintenant)

'Copie du fichier
Set FSCopie = CreateObject("Scripting.FileSystemObject")
FSCopie.CopyFile "\\serveur\partage\file.dmp" , "\\serveur\partage\archives\file_" & Date_Maintenant & Heure_Maintenant & ".dmp"

Voici mon GPS pour faire du vélo ! Le Garmin Edge 830 est une vraie réussite avec une autonomie de plus de 15 heures cartographie activée et un écran tactile désormais absolument parfait qui réagit au doigt et à l'oeil, comme un smartphone.

Créez un itinéraire sur Strava ou sur Garmin Connect et il est aussitôt transmis à vote GPS. Si vous êtes pressé ou dans un lieu inconnu, le générateur de boucle vous guidera tout simplement. Si vous décidez de changer de prendre un autre chemin le recalcul est automatique et un nouvel itinéraire vous sera proposé.

Voir mon classement des meilleurs GPS pour en savoir plus !

GPS Vélo

Laissez un commentaire