[ابو ليلى]

صديقي العزيز اذهب الى اعدادت البرنامج وضع متغير من النوع النصي و سميه filePath ساخزن به مسار الملف

الان الى الكود الخاص بك يخضع لعدة حالات وهي عند عدم تعليم الحفظ التلقائي و المسار فارغ فانا ساقوم بفتح صندوق الحفظ
و اقوم بتخزين الملف في اي مكان تحدده و اخزن المسار الخاص بالملف في اعدادت البرنامج

الحالة الثانية عند تعليم الحفظ التلقائي و المسار محفوظ للملف ساقوم بالاضافة فوق المحتويات مباشرة دون فتح صندوق الحفظ


الكود لكلا الحالتين

PHP كود :

       Dim sb As New StringBuilder()
        Try
            If Me.CheckBox1.CheckState = CheckState.Unchecked And String.IsNullOrEmpty(My.Settings.filePath) Then
                sb.AppendLine("Bot fun")
                sb.Append(TextBox1.Text)
                sb.AppendLine()

                Using Sd As New SaveFileDialog With {.Filter = "Text Files |*.txt",
                                                     .FileName = "emad.txt",
                                                     .RestoreDirectory = True}
                    If Sd.ShowDialog = DialogResult.OK Then
                        My.Settings.filePath = Sd.FileName
                        My.Settings.Save()

                        Using sw As New System.IO.StreamWriter(My.Settings.filePath, True)
                            sw.WriteLine(sb.ToString)
                        End Using

                    End If
                End Using

            ElseIf CheckBox1.CheckState = CheckState.Checked And Not String.IsNullOrEmpty(My.Settings.filePath) Then
                              sb.Append(TextBox1.Text)
                sb.AppendLine()

                Using sw As New System.IO.StreamWriter(My.Settings.filePath, True)
                    sw.WriteLine(sb.ToString)
                End Using

            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        Finally
            sb = Nothing
        End Try 


يتبقى لدي حالة اخرى و هي في حال كان المسار ليس فارغ و الحفظ التلقائي غير معلم
يمكنك استخدام مثل هذا الكود

PHP كود :

       Try


            Dim sb As New StringBuilder()

            If File.Exists(My.Settings.filePath) Then
                GoTo AppendWrite
            End If

            If Me.CheckBox1.CheckState = CheckState.Unchecked And String.IsNullOrEmpty(My.Settings.filePath) Then
                Dim rndd As New Random()
                Dim pat As String = Environment.GetFolderPath(Environment.SpecialFolder.MyDocuments)
                sb.AppendLine("Bot fun")
                sb.Append(TextBox1.Text)
                sb.AppendLine()

                Using Sd As New SaveFileDialog With {.Filter = "Text Files |*.txt",
                                                     .FileName = "emad.txt",
                                                     .RestoreDirectory = True}
                    If Sd.ShowDialog = DialogResult.OK Then
                        My.Settings.filePath = Sd.FileName
                        My.Settings.Save()
                        Using sw As New System.IO.StreamWriter(My.Settings.filePath, True)
                            sw.WriteLine(sb.ToString)
                        End Using
                    End If
                End Using

            ElseIf CheckBox1.CheckState = CheckState.Checked And Not String.IsNullOrEmpty(My.Settings.filePath) Then
AppendWrite:
                sb.Append(TextBox1.Text)
                sb.AppendLine()
                Using sw As New System.IO.StreamWriter(My.Settings.filePath, True)
                    sw.WriteLine(sb.ToString)
                End Using

            End If
        Catch ex As Exception
            MsgBox(ex.ToString)
        End Try 


استفد من الكود بما يتناسب مع توجهك
بالتوفيق