Votre question

[VBS]Faire intervenir un fichier dans une ligne de code VBS....:s

Tags :
  • copy
  • Programmation
Dernière réponse : dans Programmation
2 Septembre 2006 11:37:48

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


Autres pages sur : vbs intervenir fichier ligne code vbs

a c 145 L Programmation
2 Septembre 2006 13:19:28

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

2 Septembre 2006 14:01:26

Merci, mais ton Code n'a pas l'air de marcher...
p-t que je me trompe...pourrais-tu m'en dire plus si c le cas.
Merci
Contenus similaires
a c 145 L Programmation
2 Septembre 2006 15:07:28

Mon code ne fait que lire une ligne du fichier c:\chemin.de\ton\fichier.path et utiliser cette ligne dans l'autre requète.
Par contre, c'est p-e pas GetFile, mais plutot OpenTextFile("c:\chemin.de\ton\fichier.path",1,false)
2 Septembre 2006 15:12:05

c'est bon , j'ai réussi !!!!! :p  :p  :p  !
Merci pour ton aide !!
vive le vbs !!

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
Tom's guide dans le monde
  • Allemagne
  • Italie
  • Irlande
  • Royaume Uni
  • Etats Unis
Suivre Tom's Guide
Inscrivez-vous à la Newsletter
  • ajouter à twitter
  • ajouter à facebook
  • ajouter un flux RSS