Allora, se vuoi un pulsante che salvi un file in una determinata posizione, allora devi prima di tutto inserire nel form il componente savefiledialog, e poi inserire il seguente codice:
Dim myStream As Stream
Dim saveFileDialog1 As New SaveFileDialog()
saveFileDialog1.Filter = "txt files (*.txt)|*.txt|All files (*.*)|*.*"
saveFileDialog1.FilterIndex = 2
saveFileDialog1.RestoreDirectory = True
If saveFileDialog1.ShowDialog() = DialogResult.OK Then
myStream = saveFileDialog1.OpenFile()
If Not (myStream Is Nothing) Then
' Code to write the stream goes here.
myStream.Close()
End If
End If
End Sub
il componente verrà aperto da un semplice bottone, il cui text sarà SALVA e gli associ il codice (evento onclick):
savefiledialog.showdialog()
Spiegazione: nel codice del componente indichi prima le proprietà, lo stream IO per scrivere nel file e quindi la posizione scelta per il salvataggio (path), quindi salvi.
Tiziano