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

Devez-vous vraiment installer un VPN sur votre ordinateur ou votre smartphone?

Si vous téléchargez films, séries, MP3, ebooks et jeux illégalement, si vous voulez surfer sur Internet de façon anonyme sans que le gouvernement, votre FAI ou votre employeur soit au courant ... OUI installer un VPN est définitivement une bonne idée !

> Choisissez le meilleur VPN et apprenez à l'utiliser en 5 mn !

Anonymat NordVPN

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.

'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"

Laisser un commentaire

Cliquez ici pour révoquer votre décision.