:: FILOWEB.it: Scrivere un file TXT

 
		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)