[VBS]Faire intervenir un fichier pour compléter un chemin d'acces...:s

Résolu
kevain Messages postés 3 Date d'inscription mercredi 16 février 2005 Statut Membre Dernière intervention 2 septembre 2006 - 2 sept. 2006 à 12:21
kevain Messages postés 3 Date d'inscription mercredi 16 février 2005 Statut Membre Dernière intervention 2 septembre 2006 - 2 sept. 2006 à 15:15
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)

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

1 réponse

kevain Messages postés 3 Date d'inscription mercredi 16 février 2005 Statut Membre Dernière intervention 2 septembre 2006
2 sept. 2006 à 15:15
c bon j'ai trouvé !!!! :p
voila le code pour ceux que ça interresse !

code :

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 
3
Rejoignez-nous