Problème avec les "IOException"

**xanatos** · 03/03/2008, 15h44

BOnjour,

Donc, j'ai fait quelque lignes de code pour pouvoir faire l' "Enregistrer sous" du contenu d'une RichTextBox et que voici :

Code :

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

1
2
3
4
5
6
 
            SaveFileDialog1.ShowDialog()
            file_number = FreeFile()
            FileOpen(file_number, SaveFileDialog1.FileName, OpenMode.Output)
            Print(file_number, RichTextBox1.Text)
            Print(file_number, Chr(10))

Puis, quand j'active mon programme et que je fais mon "Enregistrer sous" celui-ci marche parfaitement si je sélectionne un fichier dans ma boite de dialogue et que j'appuie sur le bouton "enregistrer".

Parcontre si j'appuie sur le bouton "annuler de ma boite de dialogue, la troisième ligne de code qui est donc :

Code :

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

FileOpen(file_number, SaveFileDialog1.FileName, OpenMode.Output)

... se met en jaune, et on me dit que "l'exception IOException n'a pas été gérée".

J'essaye de regarder l'aide en ligne et un site en anglais qui en parle, mais je ne suis pas sur de tout comprendre...

... Donc est ce que quelqu'un aurait la gentillesse de m'éclairer svp?

Merci!!

**boubounne** · 03/03/2008, 17h18

essaye un truc comme ca :

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
 
Private Sub button1_Click(sender As Object, e As System.EventArgs)
    Dim myStream As Stream
    Dim saveFileDialog1 As New SaveFileDialog()
 
    saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
    saveFileDialog1.FilterIndex = 2
    saveFileDialog1.RestoreDirectory = True
 
    If saveFileDialog1.ShowDialog() = DialogResult.OK Then
        myStream = saveFileDialog1.OpenFile()
        If (myStream IsNot Nothing) Then
            ' Code to write the stream goes here.
            myStream.Close()
        End If
    End If
End Sub

ps j'ai pas inclu tes tests dedans, c'est le code de la msdn...