Discussion :

[Kayl86]

Bonjour à vous

je souhaite créer plusieurs fichiers texte avec une boucle for ainsi :

Code :

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

1
2
3
4
for i=1 to 10 
swwave = New StreamWriter("D:\fichier(i).txt")
swwave.WriteLine("blabla")
Next

je veux avoir fichier1 puis fichier2 puis fichier3 etc...

j'ai essayé comme ça :

Code :

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

1
2
swwave = New StreamWriter("D:\fichier{0}", _
            i.ToString & ".txt")

mais ça marche pas.

Avez vous une idée ?
merci

[walid kh]

Slt, tu peux faire ceci :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fich As StreamWriter
        Dim i As Integer
        For i = 1 To 10
            Try
 
                fich = File.CreateText(Application.StartupPath & "\fich " + i.ToString() + ".txt")
 
 
            Catch ex As Exception
                MessageBox.Show(ex.ToString(), "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            End Try
        Next

bonne chance

[walid kh]

désolé d'aprés ton code il faut faire celà :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim fich As StreamWriter
        Dim i As Integer
        For i = 1 To 10
            Try
 
                fich = File.CreateText("D:\fich " + i.ToString() + ".txt")
 
 
            Catch ex As Exception
                MessageBox.Show(ex.ToString(), "Erreur", MessageBoxButtons.OK, MessageBoxIcon.Error)
 
            End Try
        Next

voilà c ca

[Kayl86]

ça marche, merci