Comment utilise-t'on les Savefiledialog et les openfiledialog?

Version imprimable

13/05/2007, 12h27
a.bott

Comment utilise-t'on les Savefiledialog et les openfiledialog?

Bonjour, je suis Alexis, je suis nouveau sur ce forum.
Je suis en bts informatique de gestion et j'ai besoin de votre aide.
Je suis en train de créer un genre de Bloc note, et j'aimerai savoir comment on utilise les Savefiledialog et les openfiledialog. Ils me permettront d'enregistrer et d'ouvrir un fichier txt.

Merci pour vos reponses.
13/05/2007, 12h36
hellspawn_ludo

Salut à toi confrère Technicien Alexis,

As-tu consulter le MSDN car il en parle ?

Regarde tout en bas de ce site :

http://plasserre.developpez.com/v3-8.htm

Sinon, ça déjà été posté dans le forum :

http://www.developpez.net/forums/sho...openfiledialog

P.S. : T'es en 1ère ou 2ème année ?
13/05/2007, 16h27
a.bott

Citation:

Envoyé par hellspawn_ludo

Salut à toi confrère Technicien Alexis,

As-tu consulter le MSDN car il en parle ?

Regarde tout en bas de ce site :

http://plasserre.developpez.com/v3-8.htm

Sinon, ça déjà été posté dans le forum :

http://www.developpez.net/forums/sho...openfiledialog

P.S. : T'es en 1ère ou 2ème année ?

Oui, mais sur le premier site, il n'y a pas tout, il ne marche pas, il me manque le create, enfin je crois que c'est ça pour le créer le fichier
je suis en 1ere annee, enfin, en fin de premiere annee maintenant

par exemple

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
        Dim Tampon As String = ""
        With Me.OpenFileDialog1
            .CheckFileExists = True
            .DefaultExt = "txt"
            .Filter = "Fichiers texte (*.txt)|*.txt|Tous (*.*)|*.*"
            .FilterIndex = 0
            .InitialDirectory = "d:\user"
            .Multiselect = False
            If .ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
                Using Fichier As IO.StreamReader = My.Computer.FileSystem.OpenTextFileReader(Me.OpenFileDialog1.FileName)
                    Tampon = Fichier.ReadToEnd
                    Fichier.Close()
                End Using
            End If
        End With
        Tampon += Me.TextBox1.Text
        With Me.SaveFileDialog1
            .AddExtension = True
            .Filter = "Fichiers texte (*.txt)|*.txt|Tous (*.*)|*.*"
            .FilterIndex = 0
            .InitialDirectory = "d:\user"
            .ValidateNames = True
            If .ShowDialog(Me) = Windows.Forms.DialogResult.OK Then
                Using Fichier As IO.StreamWriter = IO.File.CreateText(Me.SaveFileDialog1.FileName)
                    Fichier.Write(Tampon)
                    Fichier.Close()
                End Using
            End If
        End With

14/05/2007, 22h24
a.bott

Merci

Merci à toi Bidou, c'est vraiment très sympa de ta part. Le open ne marche pas, mais je vais chercher ce qui se passe. Vive le forum.

:D