problème de sauvegarde avec extension avec les SaveFileDialog

Bonjour, :)

Voici mon code :

Code:

---

1 2 3 4 5 6 7

dim file_number as integer SaveFileDialog1.ShowDialog() file_number = FreeFile() FileOpen(file_number, SaveFileDialog1.FileName, OpenMode.Output) Print(file_number, RichTextBox1.Text) Print(file_number, Chr(10))

---

Bon en fait ça marche très bien ... j'ai ma boite de dialogue qui apparait, je peux enregistrer mon fichier à l'endroit où je veux et avec le nom que je veux lui donner.

Par contre je ne peux pas choisir l'extension de fichier dans lequel je veux enregistrer le contenu de ma RichTextBox1, et c'est un peu embêtant.

DOnc si quelqu'un sait ce qu'il faut faire, ben ça serait ultra-sympa de me répondre...

Thanks! ;)

essaye ca :

Code:

---

1 2	saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"

---

c'est pour sauvegarder au format txt

C'est sympa, mais c'est pas vraiment ca que je demande;

En fait quand je fais enregistrer sous dans mon programme, il ya ma boite de dialogue qui apparait avec au centre les fichiers que l'on selectionne pour faire l'enregistrement et en dessous il y a deux liste deroulante; une où l'on met le nom du fichier et l'autre où l'on met le type (rtf, doc, txt...).

... et c'est dans cette deuxième liste déroulante qu'il n'apparait rien; normalement je devrait pouvoir choisir le type, et la je ne peux rien choisir.

Donc je me demandais s'il je n'ai pas oublié un peu de code quelque part pour pouvoir bénéficier de cette fonctionnalité....

Bonsoir,

A mon avis, il faut combiner :

http://www.java2s.com/Tutorial/VB/02...edfilename.htm

avec la fonction savefile du richtexbox :

http://plasserre.developpez.com/v3-4.htm
http://msdn.microsoft.com/library/fr...eFileTopic.asp

Un peu comme dans l'exemple sauf que ce sont des formats d'images :

http://msdn2.microsoft.com/fr-fr/library/sfezx97z.aspx

Ou si tu veux gérer juste l'extension par défaut, voir propriété AddExtension :

http://msdn2.microsoft.com/fr-fr/lib...g_members.aspx

Citation:

---

Envoyé par xanatos

... et c'est dans cette deuxième liste déroulante qu'il n'apparait rien; normalement je devrait pouvoir choisir le type, et la je ne peux rien choisir.

---

C'est exactement ce que t'a donné boubounne... :roll:

Tu cherche le code suivant ?
si c'est le cas le voici

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16

Try Dim MonTexte As String = "Texte à enregistrer" Dim dlg As New SaveFileDialog() dlg.Title = "Enregistrer le fichier" dlg.DefaultExt = "txt" dlg.Filter = "Fichier .Txt|*.txt|Fichier .Doc|*.doc|Fichier .Php|*.php|Fichier .Php3|*.php3|Fichier .Rtf|*.rtf" ' Ouverture de la boîte dlg.ShowDialog() ' Enregistrement du fichier Dim sw As New StreamWriter(dlg.FileName, False, System.Text.Encoding.Default) sw.WriteLine(TextBox10.Text) sw.Close() Catch ex As Exception 'MsgBox("Erreur !") End Try

---