Discussion :

[Patatattak]

Bonjour,

Je suis débutant en développement, j'ai donc bien des soucis, que j'arrive d'habitude à résoudre à l'aide de tutos ou de forums d'aide, mais là non...

J'ai un gros souci avec l'écriture dans un fichier texte, mais je ne vois pas ce qui cloche. Mon programme est tout simple, un bouton pour charger une image (avec un OpenFileDialog), et un bouton pour écrire du texte dans un fichier .txt.

Ma fonction d'écriture marche quand je lance le programme. Le fichier est créé et le texte voulu se trouve dedans.

Par contre, quand j'ouvre l'OpenFileDialog et que je valide un fichier, impossible de créer et d'écrire quoi que ce soit dans le fichier .txt, alors même qu'il n'a rien à voir avec l'image ouverte.

Mon code :

Code :

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

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
Imports System.IO
 
Public Class Main
    Public Fichier As Integer
 
    Public Sub ecritureFichier(ByVal fichier As String)
        Try
            Dim monStreamWriter As StreamWriter = New StreamWriter(fichier)
            monStreamWriter.WriteLine("Ecriture OK")
            monStreamWriter.Close()
            monStreamWriter.Dispose()
            Label1.Text = "Ecriture OK dans .txt"
        Catch ex As Exception
            'Code exécuté en cas d'exception 
            Debug.Write(ex.Message)
        End Try
    End Sub
 
 
    Public Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        With OpenFileDialog1
            .Title = "Ajouter une image"
            .InitialDirectory = "c:\"
            .Filter = "Image|*.bmp;*.gif;*.png;*.jpeg;*.jpg"
            .Multiselect = False
            .CheckFileExists = True
            .ValidateNames = True
            .AddExtension = True
        End With
        If OpenFileDialog1.ShowDialog = DialogResult.OK Then
            Label1.Text = "Ouverture image OK"
        End If
    End Sub
 
    Public Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        ecritureFichier("test.txt")
    End Sub
End Class

Merci d'avance pour toute aide, je commence à désespérer !

[Patatattak]

Le problème est en fait résolu, grâce à un camarade.

Chez lui, le code marchait parfaitement, et je me suis rendu compte que chez moi, le fichier texte se baladait dans le répertoire où j'avais été chercher mon image. Apparemment cela vient de mon OS, je suis sous XP.

J'ai juste eu à rajouter :

Code :

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

.RestoreDirectory = True

dans le With de mon OpenFileDialog, et cela fonctionne.

Si ça peut servir à quelqu'un...