Discussion :

[kevain_09]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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

[SfJ5Rpw8]

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..?

[kevain_09]

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?

[kevain_09]

voila un code tiré d'un autre forum :

Code :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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..

[SfJ5Rpw8]

tiens esai :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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"

[kevain_09]

code:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 !!!