Discussion :

[Rocket2005]

bonjour je voudrai ecrire dans plusieur fichier en meme temp j'ai essayer sa

Code :

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

1
2
3
Open "C:\*.txt" For Output As #1
Print #1, "salut"
Close #1

mé sa ne marche pas est ce ke kelk'un peu me dir ou é l'erreur

[leroissejp]

Bonsoir,
1) Apprend à utiliser Option Explicit,(Outils / Options / Déclaration des variables obligatoire) celà t'aurais montré ton erreur, l'extention du fichier n'est pas reconnue(*.txt). Fait comme ceci et celà marche

Code :

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

1
2
3
4
5
6
 
Private Sub Command1_Click()
Open "C:\MonFicher.txt" For Output As #1
Print #1, "salut"
Close #1
End Sub

jpleroisse

[Rocket2005]

non mé ta pas comprit je veut ecrire dans tout les .txt en meme temp pa dans un fichier preci ca je c faire

[méphistopheles]

Tu devrais comencer par écrire de maniere lisible dans tes messages et remercier ceux qui essayent de t'aider.

Tu ne peux pas faire un système aussi simple. il faut que tu cherche tous les fichiers dans ton dossier à l'aide du file system object puis que tu prenne les .txt et que tu les stoque dans un tableau . ensuite, tu met la procédure d'écriture dans une boucle for en remplacent le chemin par une variable.


salut

[Rocket2005]

merci