Imports System.IO
Sub FichierTexte(ByVal NomFichier As String)
Dim sr As StreamReader
Dim sw As StreamWriter
Dim sLine As String
Try
If Not File.Exists(NomFichier) Then
'Le fichier n'existe pas. On le crée
sw = New StreamWriter(NomFichier)
sw.WriteLine("Bonjour. Il nous sommes le {0} et il est {1} ", _
DateTime.Now.ToLongDateString, _
DateTime.Now.ToLongTimeString)
sw.Close()
sw = Nothing
'Remarque : On peut utiliser sw = File.AppendText(NomFichier) pour ajouter
'du texte à un fichier existant
End If
'Ouverture du fichier et Ecriture du contenu du fichier sur la console
sr = New StreamReader(NomFichier)
Console.WriteLine("Debut du fichier")
sLine = sr.ReadLine()
While Not sLine Is Nothing
Console.WriteLine(sLine)
sLine = sr.ReadLine()
End While
Console.WriteLine("Fin du fichier")
Finally
'Fermeture streamreader
If Not IsNothing(sr) Then sr.Close()
'Fermeture streamwriter
If Not IsNothing(sw) Then sw.Close()
End Try
End Sub
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre questionMy.Computer.FileSystem.WriteAllText("c:\fichier.ext", "ligne1" + vbNewLine + "ligne2" + vbNewLine + "ligne3", False)
dim p as new process dim nom as string nom = txtbox.text p.StartInfo.FileName = "C:\Documents and Settings\Bureau\example.bat" p.StartInfo.Arguments = nom p.start()