تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] مشكلة نقل الملف من الريسورس لسطح المكتب
#1
عندي ملف تيكست اريد نقلة من الريسورس الي فولد ر اقوم بانشاءة بسطح المكتب

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

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

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

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


كود :
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
      
      

     
الرد
تم الشكر بواسطة:
#2
على عجالة

الكود المتعلق بإنشاء الفولدر ونسخ الملف من الريسورس الى داخل الفولدر
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) 
الرد
تم الشكر بواسطة:
#3
(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) 

واللة مشكور جدا

لما شوفت كودك اتصدمت نفس الكود الي استخدمتة كل المشكلة اني راجعت التاكيد علي وجود الملف مرتين وبعد الحذف تم حل المشكلة قلة تركيز مني بسبب ضيق الوقت
الرد
تم الشكر بواسطة: طالب برمجة
#4
هذا تعديل للكود كامل
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.OKMessageBoxIcon.Information)
Catch 
ex As Exception
    MessageBox
.Show("لم يتم انشاء فولدر سطح المكتب محمي قم بانشاء فولدر بمكان اخر""تحذير"MessageBoxButtons.OKMessageBoxIcon.Stop)
End Try 
الرد
تم الشكر بواسطة:
#5
أعلم انك وجدت الحل لمشكلتك لكن سؤال لماذا تريد نقل الملف من الريسورس الي الهارد ديسك اصلا لأنه واضح من اسم الملف انه الملف متشفر
Retired
الرد
تم الشكر بواسطة:



التنقل السريع :


يقوم بقرائة الموضوع: بالاضافة الى ( 1 ) ضيف كريم