27-02-18, 08:23 PM
عندي ملف تيكست اريد نقلة من الريسورس الي فولد ر اقوم بانشاءة بسطح المكتب
- الكود يعمل بدون مشاكل لكن لو كان بجزئين جزء (انشاء للفولدر - وجزء النقل من الريسورس )
- ولكن الكود التالي كامل يقوم بانشاء فولدر فقط ولا يقوم بنقل الملف من الريسورس
يعني المشكلة عندي بالكود كامل
حاولت افصل بين كود الانشاء للفولدر والنقل من الريسورس بالطرق الاتية بدون اي جدوي
- الكود يعمل بدون مشاكل لكن لو كان بجزئين جزء (انشاء للفولدر - وجزء النقل من الريسورس )
- ولكن الكود التالي كامل يقوم بانشاء فولدر فقط ولا يقوم بنقل الملف من الريسورس
يعني المشكلة عندي بالكود كامل
حاولت افصل بين كود الانشاء للفولدر والنقل من الريسورس بالطرق الاتية بدون اي جدوي
كود :
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