Petite aide s'il vous plait ? (création de batch automatique)

Résolu
Diabolik901 Messages postés 3 Date d'inscription samedi 6 avril 2013 Statut Membre Dernière intervention 22 septembre 2013 - Modifié par jee pee le 21/09/2013 à 22:23
Diabolik901 Messages postés 3 Date d'inscription samedi 6 avril 2013 Statut Membre Dernière intervention 22 septembre 2013 - 22 sept. 2013 à 11:18
Bonjour tout le monde je suis débutant en vb6, j'essaie de faire pour que mon programme crée mes batch automatiquement .. j'ai fais quelques recherche ,je n'ai trouvé que ceci http://codes-sources.commentcamarche.net/source/2613-comment-creer-un-fichier-texte-ou-autre-type-txt-bat où un gentil développeur ayant pour pseudo : Maverickdep83 répond que sous vb6 la ligne "Dim f as file" a du être remplacée par "Dim f as TextStream". et bien comme vous l'avez tous deviné cela ne fonctionne pas ^^',pourriez-vous m'aider?

cela donne:


Dim fso As New filesystemobject
Dim f As TextStream
Set f = fso.createtextfile("C:fichier.bat")
f.writeLine ("lescriptbatchici")
f.Close


dim fso as new filesystemobject pose problème


Merci à toute personnes capable de m'aider.

1 réponse

NHenry Messages postés 15000 Date d'inscription vendredi 14 mars 2003 Statut Modérateur Dernière intervention 27 septembre 2022 158
21 sept. 2013 à 23:00
Bonsoir,

Pourquoi passer par FSO ?
Utilise plutôt les instruction Open, Close et Print #
0
Diabolik901 Messages postés 3 Date d'inscription samedi 6 avril 2013 Statut Membre Dernière intervention 22 septembre 2013
21 sept. 2013 à 23:54
Merci, cela rend la chose plus facile

Open "C:\lefichier.bat" For Append As #1
Print #1, "lescript"
Close #1

seul petit problème "lescript" s'écrit plusieurs fois dans le fichier.. si quelqu'un connait la réponse..

Merci mille fois NHenry
0
ucfoutu Messages postés 18038 Date d'inscription lundi 7 décembre 2009 Statut Modérateur Dernière intervention 11 avril 2018 235
22 sept. 2013 à 06:41
Bonjour,
c'est "For Append" (qui veut dire pour ajouter à la suite) qui en est responsable.
Utilise For OutPut !
0
Diabolik901 Messages postés 3 Date d'inscription samedi 6 avril 2013 Statut Membre Dernière intervention 22 septembre 2013
22 sept. 2013 à 11:18
Merci beaucoup.
0