[VBS]Faire intervenir un fichier dans une ligne de code VBS!

bonjour tout l'monde !
je debute en vbs et j'aurais besoin de votre aide !
voila mon probleme :

prenons come exemple ce code (qui permet de copier un fichier)

Code:

---

1 2 3 4

Set FSys = CreateObject("Scripting.FileSystemObject") Set MonFic = FSys.GetFile("C:\????????????????\texte.txt") MonFic.Copy "C:\???????????????????\texte2.txt", True Msg =no

---

A la place des "????????" j'aimerais inserer un fichier .txt qui lui, contient le reste du chemin d'acces! Come ça, le chemin d'acces sera complet et le code pourra trouver le fichier qu'il faut.

Pkoi faire simple quand on peut faire compliqué? Car en faite le chemin d'acces qui se trouve ds le .txt est variable! il change fréquement!

Voila j'espere que vous avez bien compris ma question et que quelqu'un pourra m'aider. Si néanmoin cela reste possible :s

ben il faut commencer par ouvrir et lire le fichier contenant ton nom .. il y as t'il un moyen de le reconnaitre..? comment est-il organisé..? il ne contient que le nom du répertoire..?

oui, bien sur le fichier texte est tres reconnaissable puisque lui ne change pas de place et reste a la racine c:/ sous le nom de "rapport.txt"
Et oui il contient que le chemin d'acces c:/dossier1/dossier2/dossier3\...

voila!
alors possible or not possible? :)

voila un code tiré d'un autre forum :

Code :

Code:

---

1 2 3

Set MonFpath = FSys.GetFile("c:\chemin.de\ton\fichier.path" ) mypath = MonFpath.readline Set MonFic = FSys.GetFile("c:\" & mypath & "\texte.txt" )

---

mais je n'arrive a pas a m'en servir, cela ne marche pas avec moi ! p-t que j'my prend mal..:?

tiens esai :

Code:

---

1 2 3 4 5 6 7

Set fso= CreateObject("Scripting.FileSystemObject") Set MonFpath= fso.GetFile("c:\rapport.txt").OpenAsTextStream   mypath = MonFpath.readline   fso.CopyFile mypath, "c:\nouveauNom.txt"

---

code:

Code:

---

1 2 3 4 5 6 7

Set fso= CreateObject("Scripting.FileSystemObject") Set MonFpath= fso.GetFile("c:\rapport.txt").OpenAsTextStream mypath = MonFpath.readline Set FSys = CreateObject("Scripting.FileSystemObject" ) Set MonFic = FSys.GetFile("" & mypath & "\texte.txt" ) MonFic.Copy "" & mypath & "\texte2.txt", True Msg =no

---

Voila ça marche !!!!
Merci merci merciiii :p :p :p
vive le vbs !!!