Advertisement
Guest User

1

a guest
Jan 27th, 2011
438
0
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1.  Sub enregistrerPref()
  2.  
  3.         Dim donneesXML As String = "<?xml version=""1.0"" encoding=""utf-8"" ?>" 'ligne nĂ©cessaire pour adhĂ©rer au standard
  4.        donneesXML = String.Concat(donneesXML, vbNewLine, "<Enregistrement>") 'notre balise principale
  5.        donneesXML = String.Concat(donneesXML, vbNewLine, vbTab, "<Prenom>" & txtPrenom.Text & "</Prenom>")
  6.         donneesXML = String.Concat(donneesXML, vbNewLine, vbTab, "<Nom>" & txtNom.Text & "</Nom>")
  7.         donneesXML = String.Concat(donneesXML, vbNewLine, "</Enregistrement>")
  8.  
  9.         'on enregistre sous notre propre extension (et ici, sur le bureau)
  10.        Using sr As New StreamWriter(Environment.GetFolderPath(Environment.SpecialFolder.DesktopDirectory) & "\monExt.test1")
  11.             sr.Write(donneesXML)
  12.         End Using
  13.  
  14.     End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement