+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] مشكلة نقل الملف من الريسورس لسطح المكتب (/showthread.php?tid=24004)
مشكلة نقل الملف من الريسورس لسطح المكتب - محمد اسماعيل - 27-02-18
عندي ملف تيكست اريد نقلة من الريسورس الي فولد ر اقوم بانشاءة بسطح المكتب
- الكود يعمل بدون مشاكل لكن لو كان بجزئين جزء (انشاء للفولدر - وجزء النقل من الريسورس )
- ولكن الكود التالي كامل يقوم بانشاء فولدر فقط ولا يقوم بنقل الملف من الريسورس
يعني المشكلة عندي بالكود كامل
حاولت افصل بين كود الانشاء للفولدر والنقل من الريسورس بالطرق الاتية بدون اي جدوي
كود :
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
RE: مشكلة نقل الملف من الريسورس لسطح المكتب - طالب برمجة - 27-02-18
على عجالة
الكود المتعلق بإنشاء الفولدر ونسخ الملف من الريسورس الى داخل الفولدر
PHP كود :
Dim SELEXPED_DIR As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\active\"
If Directory.Exists(SELEXPED_DIR) = False Then Directory.CreateDirectory(SELEXPED_DIR)
IO.File.WriteAllText(SELEXPED_DIR & "\activefile.txt", My.Resources.fileencrypt)
RE: مشكلة نقل الملف من الريسورس لسطح المكتب - محمد اسماعيل - 27-02-18
(27-02-18, 09:34 PM)طالب برمجة كتب : على عجالة
الكود المتعلق بإنشاء الفولدر ونسخ الملف من الريسورس الى داخل الفولدر
PHP كود :
Dim SELEXPED_DIR As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\active\"
If Directory.Exists(SELEXPED_DIR) = False Then Directory.CreateDirectory(SELEXPED_DIR)
IO.File.WriteAllText(SELEXPED_DIR & "\activefile.txt", My.Resources.fileencrypt)
واللة مشكور جدا
لما شوفت كودك اتصدمت نفس الكود الي استخدمتة كل المشكلة اني راجعت التاكيد علي وجود الملف مرتين وبعد الحذف تم حل المشكلة قلة تركيز مني بسبب ضيق الوقت
RE: مشكلة نقل الملف من الريسورس لسطح المكتب - طالب برمجة - 28-02-18
هذا تعديل للكود كامل
PHP كود :
Try
Dim SELEXPED_DIR As String = My.Computer.FileSystem.SpecialDirectories.Desktop & "\active"
If Directory.Exists(SELEXPED_DIR) = False Then Directory.CreateDirectory(SELEXPED_DIR)
Dim lines() As String = My.Resources.fileencrypt.Split(vbNewLine)
Dim newline As String = "NEW LINE"
lines(3) = newline & "/" & newline
IO.File.WriteAllLines(SELEXPED_DIR & "\activefile.txt", lines)
MessageBox.Show(" تم حفظ الملف بالمسار التالي " & vbNewLine & SELEXPED_DIR & "\activefile.txt", "نجاح العملية", MessageBoxButtons.OK, MessageBoxIcon.Information)
Catch ex As Exception
MessageBox.Show("لم يتم انشاء فولدر سطح المكتب محمي قم بانشاء فولدر بمكان اخر", "تحذير", MessageBoxButtons.OK, MessageBoxIcon.Stop)
End Try
RE: مشكلة نقل الملف من الريسورس لسطح المكتب - silverlight - 28-02-18
أعلم انك وجدت الحل لمشكلتك لكن سؤال لماذا تريد نقل الملف من الريسورس الي الهارد ديسك اصلا لأنه واضح من اسم الملف انه الملف متشفر