VBS Script
Sochead
Messages postés
3
Date d'inscription
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.
Configuration: Windows XP Internet Explorer 6.0
1 réponse
-
Salut, j'arrive peut-être un peu tard, mais la discussion n'est pas validée comme étant résolue...
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
