Discussion :

[Chris-it]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[ProgElecT]

Salut, bienvenue sur DVP

Dans la FAQ VBScript, Comment obtenir des informations sur fichier ? a insérer tout de suite après le If (fso.FileExists("C:\dossier\fichier.extension")) Then et avant de quitter (éventuellement).
DateLastModified te permettra de savoir si tu dois réécrire ou non le fichier.

[Miistik]

Bonjour,

En complément de ProgElecT, tu peux faire ceci pour la date du fichier :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
Set f = fso.GetFile(FichierTXT)
f.DateLastModified

Ensuite pour comparer à la date du jour par exemple, tu peux faire :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
If (DateDiff("s", f.DateLastModified, Date) <> 0) Then 'Si la date de derniere modif est celle du jour
'Tes actions
End If

Une autre petite chose : tu as besoin d'un seul Scripting.FileSystemObject. Tu n'as pas besoin d'en avoir 4.

[Chris-it]

merci pour vos réponses