hmmm... accés aux fichiers texte en .net :
Imports System.IO
Public Function read_txtfile(ByVal pathz As String) As String
Dim strparam As String
If File.Exists(pathz) = True Then
Dim hbread As StreamReader
hbread = New StreamReader(pathz)
strparam = hbread.ReadToEnd
hbread.Close()
Return strparam
Else
Return ""
End If
End Function
Public Sub write_txtfile(ByVal pathz As String, ByVal paramzstr As String)
Dim hbwrite As StreamWriter
hbwrite = New StreamWriter(pathz, False)
hbwrite.Write(paramzstr)
hbwrite.Flush()
hbwrite.Close()
End Sub
Public Sub append_txtfile(ByVal pathz As String, ByVal paramzstr As String)
If File.Exists(pathz) = True Then
Dim hbwrite As StreamWriter
hbwrite = New StreamWriter(pathz, True)
hbwrite.Write(paramzstr)
hbwrite.Flush()
hbwrite.Close()
Else
write_txtfile(pathz, paramzstr)
End If
End Sub
Hvb aka Batto
bato.ltd at gmail.com