VB.NET – Scrivere un file TXT

Ieri ho scritto un articolo su come leggere un file TXT da codice e vi avevo promesso di scrivere un articolo per poter scrivere questi file. Diciamo che con i metodi che ci offre il framework .NET questa è una operazione molto semplice. Come ieri nel vostro progetto dovete importare la libreria System.IO e disegnare una forma come questa:

Come vedete a differenza di ieri questa form ha in più:

• Un pulsante di salvataggio
• Un pulsante di chiusura form
• Una textbox dove inserire il nome del file che volete creare
• Un oggetto FileBrowserDialog per selezionare una cartella dove salvare il file
• La textbox dove inserire il testo che volete salvare

Prima di tutto dovete scrivere il codice necessario per l’evento click del pulsante di selezione cartella. Qua dovete controllare se l’utente ha scelto una cartella valida. Il codice è questo:

FolderBrowserDialog1.ShowDialog()
If Directory.Exists(FolderBrowserDialog1.SelectedPath) Then
tbPath.Text = FolderBrowserDialog1.SelectedPath
End If

A questo punto avete la cartella dove potete salvare il file. Nel evento click del pulsante Salva dovete dichiarare queste variabili:

Dim wr As StreamWriter
Dim sFile As String

Poi la prima cosa da fare è controllare se l’utente ha inserito il path di salvataggio e il nome del file da creare:

If tbPath.Text = String.Empty Or tbNomeFile.Text = String.Empty Then
MessageBox.Show(“Completare tutti i campi prima di procedere al salvataggio”)
Exit Sub
End If

Se l’utente ha inserito tutto allora salviamo il contenuto della textbox nel file:

sFile = tbPath.Text & “\” & tbNomeFile.Text & “.txt”
‘Controllo se il file esiste se cosi lo cancello
If File.Exists(sFile) Then
File.Delete(sFile)
End If
‘Creao una nuova istanza
wr = New StreamWriter(sFile, False)
‘Scrivo il contenuto
wr.Write(tbContent.Text)
‘Ripulite il buffer
wr.Flush()
‘Chiudo il writer
wr.Close()
‘Aprite il file
Process.Start(sFile)

Questo è tutto. Adesso sapete come leggere e scrivere un file TXT. Buona programmazione.