Ciao Totem
sono proprio un imbranato,
ma sono molto contento che anche tu sia intervenuto in questo thread per aiutarmi a risolvere il problema.
Ho provato a chiudere il file in lettura prima di sovrascrivere il file "Agenda.txt" con il nuovo testo modificato, ma non mi riesce neanche con le indicazioni fornitemi da klez91.
Allora, senza cambiare directory, registro un nuovo file dal nome "Prova.txt" all'interno della cartella "Agenda" per vedere se il programma è OK per modificare o annullare un Nominativo. Ed effettivamente funziona.
Però sarebbe molto meglio se potessi sovrascrivere il file nominandolo come il precedente "Agenda.txt",
Comunque posto la procedura riguardante la modifica del nominativo, nella speranza che possa avere un suggerimento più completo.
___________________________________________________
'Button3 serve per registrare un nominativo corretto
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
'Prepara 100 Record vuoti per memorizzare i Record registrati nell'Agenda.txt esisente
Dim Record(100) As String
Dim I As Integer
Dim Z As Integer
Dim Nominativo As String = ""
'Apre (per la lettura) il file C:\Agenda.txt
Dim Percorso As String = "C:\Agenda"
Dim PercorsoFile As String = "C:\Agenda\Agenda.txt"
'raccoglie i dati corretti scritti nelle TextBox per formare un unico racord
For I = 1 To 11
If I < 11 Then Nominativo = Nominativo + Me.Controls("TextBox" & I).Text + ("*")
Next I
Nominativo = Nominativo + Me.Controls("TextBox" & 11).Text
'Apre il file Agenda.txt per rileggere e memorizzare tutti i Record registrati
Dim r As New IO.StreamReader("C:\Agenda\Agenda.txt")
Z = 0
Do While Not r.EndOfStream
'Attribuisce alla variabile Record(Z)
'il Record, nel file Agena.txt, che sta leggendo
Z = Z + 1
Record(Z) = r.ReadLine
If Z = PosizioneRecord Then
Record(Z) = Nominativo
End If
Loop
Close()
'Crea nella cartella “Agenda”
'un nuovo file: “Prova.txt” se assente
'oppure lo apre in lettura e lo aggiorna attraverso la determinazione della sua esistenza (metodo fileExist)
Dim NuovoPercorsoFile As String = "C:\Agenda\Prova.txt"
For I = 1 To Z
' È possibile utilizzare Metodo My.Computer.FileSystem.
'WriteAllText per scrivere del testo all'interno dei file.
'Se il file specificato non esiste, viene creato automaticamente. My.Computer.FileSystem.WriteAllText(NuovoPercorsoFile, Record(I) + Chr(13), True)
Next I
'Elimina il testo dalle TextBox
'per consentire l'inserimento di un nuovo nominativo
Call ClearAllControls(Me)
End Sub