[محمد اسماعيل]

عندي ملف تيكست اريد نقلة من الريسورس الي فولد ر اقوم بانشاءة بسطح المكتب

- الكود يعمل بدون مشاكل لكن لو كان بجزئين جزء (انشاء للفولدر - وجزء النقل من الريسورس )

- ولكن الكود التالي كامل يقوم بانشاء فولدر فقط ولا يقوم بنقل الملف من الريسورس

يعني المشكلة عندي بالكود كامل

حاولت  افصل بين كود الانشاء للفولدر والنقل من الريسورس بالطرق الاتية بدون اي جدوي

كود :

Threading.Thread.Sleep(500)

كود :

Application.DoEvents()

كود :

  Dim SELEXPED_DIR As String = My.Computer.FileSystem.SpecialDirectories.Desktop + "\active"
        Try
            If Directory.Exists(SELEXPED_DIR) = False Then
                Directory.CreateDirectory(SELEXPED_DIR)
                Application.DoEvents()
            Else
                IO.File.WriteAllText(SELEXPED_DIR & "\activefile.txt", My.Resources.fileencrypt)
                If IO.File.Exists(SELEXPED_DIR & "\activefile.txt") = True Then
                    Dim jumbofile As String = SELEXPED_DIR & "\activefile.txt"
                    Dim newline As String = "NEW LINE"
                    If System.IO.File.Exists(jumbofile) Then
                        Dim lines() As String = IO.File.ReadAllLines(jumbofile)
                        For i As Integer = 0 To lines.Length - 1
                            lines(3) = newline & "/" & newline
                        Next
                        IO.File.WriteAllLines(jumbofile, lines)
                    End If
                End If
            End If

            MessageBox.Show("  تم حفظ الملف بالمسار التالي " & vbNewLine & SELEXPED_DIR & "\activefile.txt", "نجاح العملية", MessageBoxButtons.OK, MessageBoxIcon.Information)
        Catch ex As Exception
            MessageBox.Show("لم يتم انشاء فولدر سطح المكتب محمي قم بانشاء فولدر بمكان اخر", "تحذير", MessageBoxButtons.OK, MessageBoxIcon.Stop)
        End Try