Discussion :

[PuMa|Yas]

Bonjour,

J'ai une tache a faire don je ne sais pas vraiment comment m'y prendre,
alors je vient vous demander conseil.

Je dois l'aide d'un script vb, crée un nouveau fichier ".txt" et dans ce fichier je dois changer des paramètre de plusieurs anciens fichier txt.

J'avais penser a faire quel que chose du style :

1 Création d'un nouveau fichier CFG
Pour cela : Set objFSO = CreateObject("Scripting.FileSystemObject")

2 charger les fichiers txt qu'on a besion
Example :
Avez des imprimantes : Oui / Non
--> Si oui, on importe le fichier txt
--> si non, on importe ... pas le fichier txt (lol?)
Mais la je sais vraiment pas comment faire....

3 Remplacer les valeur indiquer
Example:
Une fois le fichier txt importer... on recois un nouveau dialogbox qui dis
--> Non d'imprimant ...
La je pense utiliser la valeur RemplaceValues

Puis la sauvegard du fichier...

Je voudrais savoir ce que vous pensez de la structure du script..

Et si vous avez des idées.

Merci a vous

[ced600]

Regarde les exemples ici ils t'aideront à faire ton script :
http://vb.developpez.com/faqvbs/?page=II.2

[PuMa|Yas]

Enfaite je l'avais déjà vue cette article.

Mais il y a pas vraiment grand chose qui pourrais m'aider dans mon cas (a part copier un text).

Merci sinon

[PuMa|Yas]

une petite question (simple pour les pro lol)

je suis occupé avec la première parti
voici ce que je fait :

Code :

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

1
2
3
4
5
6
7
8
9
  msgTexte = "Entrez le nom du fichier : " & vbCrLf & vbCrLf & _
                          "(ex.: C:\MonFichier.cfg)" & vbCrLf
  Fichier = InputBox(msgTexte, "Saisie de l'emplacement du fichier à créer", _ 
                                       "C:\Ce_Fichier.cfg")
 
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "C:\test.cfg","Fichier",True

Mais aulieu de me copier un fichier .cfg ver ce qu'on introduis, il me cree un fichier "FICHIER" dans le repertoir du script vbs

savez vous comment ce fait il qu'il me crée pas le fichier demander ?

[spantemonium]

essaie cà :

Code :

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

1
2
3
4
5
6
7
8
9
msgTexte = "Entrez le nom du fichier : " & vbCrLf & vbCrLf & _
"(ex.: C:\MonFichier.cfg)" & vbCrLf
Fichier = InputBox(msgTexte, "Saisie de l'emplacement du fichier à créer", _
"C:\Ce_Fichier.cfg")
 
 
Dim oFSO
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.CopyFile "C:\test.cfg",Fichier,True

J'ai retiré les Guillemets sur la variable Fichier...

[PuMa|Yas]

Salut,

Merci pour ton coup de main, mais il ne trouve pas la variable oFSO.copyfile

Une idee ?