VBS Script
Fermé
Sochead
Messages postés
3
Date d'inscription
mardi 15 mai 2007
Statut
Membre
Dernière intervention
21 janvier 2008
-
21 mai 2007 à 14:45
carbon3 Messages postés 470 Date d'inscription mercredi 20 février 2008 Statut Membre Dernière intervention 6 janvier 2013 - 25 févr. 2008 à 11:45
carbon3 Messages postés 470 Date d'inscription mercredi 20 février 2008 Statut Membre Dernière intervention 6 janvier 2013 - 25 févr. 2008 à 11:45
A voir également:
- VBS Script
- Script vidéo youtube - Guide
- Vbs windows - Accueil - Optimisation
- Ghost script - Télécharger - Polices de caractères
- Script bat - Guide
- Microsoft activation script - Accueil - Windows
1 réponse
carbon3
Messages postés
470
Date d'inscription
mercredi 20 février 2008
Statut
Membre
Dernière intervention
6 janvier 2013
73
25 févr. 2008 à 11:45
25 févr. 2008 à 11:45
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