Pb Syntaxe : Variable dans Path - fastoche

Bonjour,

Quelqu'un parmis vous aurait-il la gentillesse de me corriger svp ?

Je tourne en bourrique à essayer de déguger mon script mais je n'y arrive pas.
Le probleme: ajouter une variable User dans un path.

je definie ma variable comme ca:

Code:

---

1 2 3 4

'VARIABLE USER Set objNetwork = CreateObject("WScript.Network") User= objNetwork.UserName 'wscript.echo User

---

et je definie une autre variable comme ca:

Code:

---

1 2 3 4 5

'DATE FICHIER set FSO=CreateObject("Scripting.FileSystemObject") Set File=FSO.GetFile("C:\Documents and Settings\" & USER & "\Application Data\Microsoft\Modèles\mon_fichier.txt") DateFile=File.DateCreated 'wscript.echo DateFile

---

Mais la ca coince, je n'arrive pas a trouver la bonne syntaxe

Merci pour votre aide.

la syntaxe a l'air bonne ... c'est quoi qui coince ?

Citation:

---

Envoyé par bbil

la syntaxe a l'air bonne ... c'est quoi qui coince ?

---

J'ai l'erreur suivante:
Script: le path de mon script
Ligne: 12 (c'est celle ou il y a la variable en rouge)
Erreur: Fichier introuvable
Code: 800A0035
Source: Erreur d'execution Microsoft VBScript

J'ai testé ton code chez moi (XP SP3) ca fonctionne parfaitement.

ouvre tu une session windows?

Est ce que monfichier.txt existe ?

Citation:

---

Envoyé par bbil

la syntaxe a l'air bonne ... c'est quoi qui coince ?

---

En effet la syntaxe est bonne :oops:
En fait je compare les dates de deux fichiers, si le fichier sur le poste est plus ancien que celui sur le serveur, je l'ecrase à deux endroits.

L'erreur arrive quand le fichier sur le poste n'est pas la :(
Comment je pourrais faire pour qu'il le copie aussi si il n'est pas la ?
J'ai employé cette technique de comparaison car je n'arrivait pas definir une variable selon la date :oops: j'aurais fait un if date > date ref then ..ecrase.. else ..copie. end if

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47

Option Explicit Dim FSO,File,DateFile,FSOref,Fileref,DateFileref,user,objNetwork   'VARIABLE USER Set objNetwork = CreateObject("WScript.Network") User= objNetwork.UserName wscript.echo User   'DATE FICHIER SUR LE POSTE set FSO=CreateObject("Scripting.FileSystemObject") Set File=FSO.GetFile("C:\Documents and Settings\" & USER & "\Application Data\Microsoft\Modèles\monfichier.txt") DateFile=File.DateCreated wscript.echo DateFile   'DATE FICHIER NOUVELLE VERSION set FSOref=CreateObject("Scripting.FileSystemObject") Set Fileref=FSO.GetFile("\\monserveur\monfichierderef.txt") DateFileref=Fileref.DateCreated wscript.echo DateFileref       'COPY FICHIER DEFAULT USER   If DateFile > DateFileref then   FSO.CopyFile "\\monserveur\monfichierderef", "C:\Documents and Settings\Default User\Application Data\Microsoft\Modèles\monfichierderef", true   end if     'COPY FICHIER USER PROFILE   If DateFile > DateFileref then   FSO.CopyFile "\\monserveur\monfichierderef", "C:\Documents and Settings\" & USER & "\Application Data\Microsoft\Modèles\monfichierderef", true   end if     'COPY FLAG   If DateFile > DateFileref then   FSO.CopyFile "\\serveur\unautrefichier.txt", "C\:unautrefichier.txt", true   end if

---

On Error Resume Next ? bof

tu peux utiliser FSO.FileExists

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'VARIABLE USER Set objNetwork = CreateObject("WScript.Network") User= objNetwork.UserName 'wscript.echo User   'DATE FICHIER set FSO=CreateObject("Scripting.FileSystemObject")   If FSO.FileExists("C:\Documents and Settings\" & USER & "\Application Data\Microsoft\Modèles\mon_fichier.txt") Then wscript.echo "le fichier existe alors je fais" Set File=FSO.GetFile("C:\Documents and Settings\" & USER & "\Application Data\Microsoft\Modèles\mon_fichier.txt") DateFile=File.DateCreated 'wscript.echo DateFile else wscript.echo "le fichier n'existe pas alors je fais" end if

---

Citation:

---

Envoyé par vikingraver

tu peux utiliser FSO.FileExists

---

Merci vikinggraver, Merci les autres aussi :D
J'ai fait un nouveau script en utilisant le FSO.FileExists
Une fois dans le If FSO.FileExists est ce qu'on peut ajouter d'autre If DateFile ... End if et de quelle maniere ? Parce que j'ai ajouté les 3 If DateFile mais ils ne sont pas pris en compte.
Une fois qu'on sait si le fichier est là, on vérifie sa date et on fait x ou y

Donne ton code si tu veux bien.

Mais tu peux imbriquer plusieurs IF de maniere suivante

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22

If Condition1=vraie then ..... ..... If Condition 2=vraie then ..... ..... End If 'condition 2   If Condition 3=vraie then ..... ..... If condition 4=vraie then ....; ..... End If 'condition4 End If 'conditon3   Else 'condition1 ....   End If ' condition1

---