فهد اسامة

بســم الله الـرحمــن الرحيــم كود الحفظ Dim svFile As New SaveFileDialog svFile.Filter = "Text FILES (*.txt)|*.txt" svFile.ShowDialog() If svFile.FileName <> "" Then FileOpen(1, svFile.FileName, OpenMode.Output) PrintLine(1, TextBox1.Text) FileClose(1) End If …