Guest User

[VB.NET] Script générer un fichier texte

a guest
Apr 13th, 2018
485
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
VB.NET 1.23 KB | None | 0 0
  1. Public Class form1
  2.  
  3. '+--------------------+
  4. '|  Par legameur6810  |
  5. '+--------------------+
  6.  
  7.     Dim path_ As String = "" 'On déclare une variable.
  8.  
  9.     Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
  10.  
  11.         Dim sw As New System.IO.StreamWriter(path_)'On ouvre le document
  12.         sw.WriteLine("Code par legameur6810")'On inscris le code du documents
  13.         sw.WriteLine("")
  14.     sw.WriteLine("La c'ecris ce que je veux et cettes commandes meut permte d'ecrire en sautant une ligne")
  15.         sw.Close()'On ferme le document
  16.     End Sub
  17.  
  18.     Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
  19.         Dim sfd As New SaveFileDialog 'On ouvre une fenêtre de dialoges
  20.         sfd.Filter = "Fichier text |*.txt*" 'On precises que cest que les document texte
  21.         sfd.FileName = "mondocument.txt" 'On propose un nom de départ
  22.         sfd.Title = "Enregistrer" 'On met le nom de la fenêtre de dialoge
  23.  
  24.         If sfd.ShowDialog = Windows.Forms.DialogResult.OK Then
  25.             'PAS TOUCHER ICI
  26.             path_ = sfd.FileName
  27.             Path.Text = path_
  28.             Button1.Enabled = True
  29.         End If
  30.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment