Ciao vr-claudio, ricordati d'inserire sempre il linguaggio (visto che chiedi SaveFile, presumo che sia VB).
codice:
Private Sub Command1_Click()
Dim FileNum As Integer
Dim FileName As String
' Percorso, nome della cartella e del file (da inserire in Form1.Text1.Text & ".txt"):
FileName = App.Path & "\Prova\" & Form1.Text1.Text & ".txt"
FileNum = FreeFile()
Dim strCL1 As String
strCL1 = Form1.Text2.Text
Open FileName For Output As #FileNum
Write #FileNum, strCL1
Close #FileNum
End Sub
Nell'esempio, funzionante, ho inserito due Txt: una contiene il Testo da salvare Text2, l'altra il nome dato al File.