Discussion :

[a.bott]

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.

[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 ?

[a.bott]

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

[bidou]

par exemple

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
        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

[a.bott]

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.