Vérifier date d'un fichier avant la modification
Bonjour tout le monde,
Je suis assez nouveau dans le monde du scripting :)
Et je viens auprès de cette communauté pour m'aider à passer outre un blocage.
Je m'explique,
Je dois créer un script qui doit créer un fichier a un certain endroit sur un PC en lui donnant moi même les données qui doivent y être présentes.
Ce Script sera déployer par GPO, et donc a chaque démarrage du PC du client il va s’exécuter.
Donc il faudrait pouvoir vérifier si le fichier existe ou non, vérifier sa date de modification pour pouvoir venir réinscrire de nouvelles données à l'avenir.
voici ce que j'ai déjà effectué :
Code:
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21
| Dim oFSO,oFld,fso
Set fso = CreateObject("Scripting.FileSystemObject")
If (fso.FileExists("C:\dossier\fichier.extension")) Then
WScript.Quit()
Else
Set oFSO = CreateObject("Scripting.FileSystemObject")
Set oFld=oFSO.CreateFolder ("c:\dossier")
Set fso = WScript.CreateObject("Scripting.FileSystemObject")
FichierTXT = "C:\dossier\fichier.extension"
Set NewFichier = fso.CreateTextFile(FichierTXT,TRUE)
data1 = "blabla"
NewFichier.WriteLine(data1)
data2 = "blabla2"
NewFichier.WriteLine(data2)
Set fso = Nothing
Set objFSO = CreateObject("Scripting.FileSystemObject")
set objWShell = wScript.createObject("WScript.Shell")
usrName = objWShell.expandEnvironmentStrings("%USERNAME%")
objFSO.CopyFile "C:\dossier\fichier.extension" , "C:\dossier\destination", True
End If
WScript.Quit |
Si vous pouviez éclairer ma lanterne, cela serait une bonne année qui commencerait :)
Merci.
Chris-It