Tom's Guide > Forum > Programmation > [VBS]Faire intervenir un fichier dans une ligne de code VBS....:s

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

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

TomsGuide.com : 800 000 inscrits répondent à toutes vos questions high-tech et informatique. Pour obtenir de l'aide, inscrivez-vous gratuitement !
Créer un nouveau sujet Répondre
Mot :    Pseudo :           
 
K-LoX   02-09-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


Répondre
Liens sponsorisés
Inscrivez-vous ou connectez-vous pour masquer ceci.
crazycat@idn   02-09-2006 à 13:19:28
- 0 +

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


------------------------------ Réseau IRC Francophone | g33k-zone
 Répondre à crazycat@idn
K-LoX   02-09-2006 à 14:01:26
- 0 +

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

Répondre à K-LoX
crazycat@idn   02-09-2006 à 15:07:28
- 0 +

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)

------------------------------ Réseau IRC Francophone | g33k-zone
 Répondre à crazycat@idn
K-LoX   02-09-2006 à 15:12:05
- 0 +

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

Répondre à K-LoX
Créer un nouveau sujet Répondre
Tom's Guide > Forum > Programmation > [VBS]Faire intervenir un fichier dans une ligne de code VBS....:s
Aller à :

Il y a 1950 utilisateurs connus et inconnus. Pour voir la liste des connectés connus, cliquez ici.

Plan du forum
Forum Bestofmedia ©
2000-2009 Bestofmedia Group
Page générée en 0,178 secondes
Attention

Vous allez répondre sur un sujet resté inactif pendant plus de 6 mois.
Assurez-vous d'apporter des éléments nouveaux à la discussion avant de poursuivre.

Répondre Annuler
Liens