Ok allora ti do questo esempio fatto da me tempo fa:
Questo codice è per scrivere
Dim Percorso_File_Della_Cronologia As String = _
My.Computer.FileSystem.SpecialDirectories.MyDocuments _
& "\Percorso_File_Della_Cronologia.txt"
My.Computer.FileSystem.WriteAllText(Percorso_File_Della_Cronologia, _
Me.WebBrowser1.Url.ToString & ",", True)
Questo è per leggere e inserire il contenuto nella listobx1
Me.ListBox1.Items.Clear()
Dim Percorso_File_Della_Cronologia As String = _
My.Computer.FileSystem.SpecialDirectories.MyDocuments _
& "\Percorso_File_Della_Cronologia.txt"
If My.Computer.FileSystem.FileExists(Percorso_File_Della_Cronologia) Then
Dim MyReader As Microsoft.VisualBasic.FileIO.TextFieldParser
MyReader = My.Computer.FileSystem.OpenTextFieldParser( _
Percorso_File_Della_Cronologia)
MyReader.SetDelimiters(",")
Dim testocronologia As String() = MyReader.ReadFields()
For Each cronologia As String In testocronologia
If My.Computer.FileSystem.FileExists(cronologia) Then
Me.ListBox1.Items.Add(cronologia)
End If
Next
MyReader.Close()
Else
MsgBox("Il file della cronologia non è esistente.", MsgBoxStyle.OkOnly, _
Me.Text)
End If
Comunque mi puoi dire come fai a chiudere le TabPages?
Le elimini?
|