CREARE:
¦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)
