[3asfa~mdmra]

سلام عليكم

واجهتني مشكلة في هذا الكود

والمراد من الكود هوا تحديد مكان حفظ المستند

وبمجرد نزول اي محتوي في تكست بوكس

ان ينحفظ تلقائياً في المكان المحطط مسبقاً

انا وضعت هذا الكود ولكن عند نزول كلمات

في تكست بوكس لا تنحفظ تلقائياً في 

المكان الذي سبق تحديدة 

ع سبيل مثال انا حدد حفظ تلقائي

ع سطح مكتب ولكن ظهرت نتجية في التكست بوكس ولم

تحفظ تلقائياً ع سطح المكتب

كود :

Try
           If Me.CheckBox1.Checked Then
               Dim rndd As New Random()
               Dim pat As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
               Dim sb As New StringBuilder()
               sb.AppendLine("Bot fun")
               sb.Append(TextBox2.Text)
               sb.AppendLine()
               sb.AppendLine()
               Dim sd As New SaveFileDialog()
               sd.FileName = "emad.txt"
               Dim filePath As String = ""
               Dim save As New StreamWriter(sd.FileName)
               save.Write(sb)
               filePath = sd.FileName
               save.Close()
           End If
       Catch
       End Try

كما هو موضح بصورة 

انا حضغط ع

auto save bots

شو بنزل في تكست بوكس

يذهب مباشرة للمكان

الذي سبق تحديدة وليكن سطح المكتب

وشكراً