[VB.NET] problème de fichier

Version imprimable

Bonjour,

Nouveau dans la programmation, je suis en train d'essayer de comprendre VB 2005 et je bute sur l'ouverture, la lecture et l'écriture dans les fichiers.

j'ai écrit ceci mais ça ne marche pas comme je veux
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub BTcreer_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles BTcreer.Click Dim fich As System.IO.FileStream fich = System.IO.File.Create(My.Application.Info.DirectoryPath + "\donnee.txt") fich.Close() Dim fileReader As String fileReader = My.Computer.FileSystem.ReadAllText(fichiertempo) Label2.Text = fileReader 'MsgBox(fileReader) End Sub
Mon but c'est de créer un fichier "donnee.txt", de remplir ce fichier avec des éléments d'un autre fichier (je récupère le chemin de ce fichier par une boite de dialogue dans une variable que j'ai appelé "fichiertempo"). Avec mon code ci-dessus je crée bien mon fichier "donnee.txt" mais je n'ouvre pas le second fichier dont le chemin est dans la variable "fichiertempo"

Merci de votre aide

03/05/2006, 10h25
Biloutor

va voir sur les FAQ ca devrais t'aider. Il y a une grande partie sur la gestion des fichiers.

http://faqvbnet.developpez.com/

Bonne chance
03/05/2006, 10h28
ekinox17

utilise la MSDN et regarde le StreamReader et le StreamWriter
C'est tout simple apres tu utilise la fonction Read et write sur ton flux (stream) et c'est dans le sac (ou plutot dans le fichier)

voici un code qui peut t'aider, si tu y trouves des difficultés je peux t'aider ;)

Code:

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

j'ai fais un cpoier/coller d'un ancien programme sans y rien changer.
bonne comprhénsion :lol: