1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47
|
Try
If Not File.Exists(NomFichier) Then
'Le fichier n'existe pas. On le crée
sw = New StreamWriter(NomFichier)
sw.WriteLine(strEntete)
sw.Close()
sw = Nothing
sw = File.AppendText(NomFichier)
For i = 1 To ListMadOk.Items.Count
'Application.DoEvents()
sw.WriteLine(strDetail(i))
Next
sw.WriteLine(code_etat_)
sw.Close()
sw = Nothing
Else
File.Delete(NomFichier)
sw = New StreamWriter(NomFichier)
sw.WriteLine(strEntete)
sw.Close()
sw = Nothing
sw = File.AppendText(NomFichier)
For i = 1 To ListMadOk.Items.Count
'Application.DoEvents()
sw.WriteLine(strDetail(i))
Next
sw.WriteLine(code_etat_)
sw.Close()
sw = Nothing
End If
Finally
'Fermeture streamwriter
If Not IsNothing(sw) Then sw.Close()
End Try |
Partager