VBS Script
Sochead
Messages postés
3
Statut
Membre
-
carbon3 Messages postés 471 Statut Membre -
carbon3 Messages postés 471 Statut Membre -
Bonjour, j'ai des fichiers de backup SQL qui sont générés tous les jours sous ce format : xxx_200705151200.bak
Les 4 derniers caractère avant le .bak correspond à l'heure de la sauvegarde. J'aimerai faire un script en vbs qui permet de copier le fichier backup de 18h00. La copie de ficheir ne me pose pas de problème mais je ne sais comment lui de verifier le fichier de la date du jour et copier uniquement celui de 18h. Sachant que j'ai un backup qui se fait tous les jours et tous les heures. si quelqu'un peu m'aider sur ce sujet car je ne maitrise pas bien le VBS.
Merci d'avance pour votre aide.
Les 4 derniers caractère avant le .bak correspond à l'heure de la sauvegarde. J'aimerai faire un script en vbs qui permet de copier le fichier backup de 18h00. La copie de ficheir ne me pose pas de problème mais je ne sais comment lui de verifier le fichier de la date du jour et copier uniquement celui de 18h. Sachant que j'ai un backup qui se fait tous les jours et tous les heures. si quelqu'un peu m'aider sur ce sujet car je ne maitrise pas bien le VBS.
Merci d'avance pour votre aide.
A voir également:
- VBS Script
- Vbs windows - Accueil - Optimisation
- Script vidéo youtube - Guide
- Mas script - Accueil - Windows
- Ghost script - Télécharger - Polices de caractères
- Script cmd - Guide
1 réponse
Salut, j'arrive peut-être un peu tard, mais la discussion n'est pas validée comme étant résolue...
Bonne continuation
dim FSO: Set FSO = CreateObject("Scripting.FileSystemObject")
jour=day(date)
if jour<10 then
jour="0"+Cstr(jour)
else
jour=Cstr(jour)
end if
mois=month(date)
if mois < 10 then
mois = "0"+Cstr(mois)
else
mois = Cstr(mois)
end if
annee=Cstr(year(date))
aujourdhui=annee+mois+jour
' Ici, définition du répertoire des backups...
dim wrkhere: wrkhere=""
dim objfold
if FSO.FolderExists(wrkhere)=TRUE then
Set objfold=FSO.GetFolder(wrkhere)
else
msgbox "Le répertoire spécifié n'existe pas...",48
wscript.quit
end if
dim filcol: Set filcol=objfold.Files
dim filrol
For Each filrol in filcol
'Est-ce un backup d'aujourdh'ui ?
if instr(filrol, aujourdhui) > 0 then
'recherche depuis la fin pour éviter une occurence pouvant éventuellement apparaître dans la partie xxx_
if InStrRev(filrol,"1800") > 0 then
'.../... [copie de filrol] .../...
msgbox "~= Copie faite =~",64
end if
end if
Next
Bonne continuation
