تقييم الموضوع :
  • 2 أصوات - بمعدل 5
  • 1
  • 2
  • 3
  • 4
  • 5
[سؤال] السلام عليكم : اريد اكواد هامة لـ برنامجي
#1
السلام عليكم ورحمة الله وبركاتة

كنت اريد من حضراتكم اكواد لبرنامجى :: 

الموضوع عن Restore الملفات :

النموذج المرفق : مثالة كتالى
ـــــــــــــــــــــــــــــــــــــــــــــــ
اولا :  اريد عمل restore لملف معين اسمة ( PlayReady )  وهو موجود بالانظمة الويندوز الحالية اكس بى و 7 . 8

اريد عند الضغط على حفظ بالبرنامج بعد ان احدد النظام الذى اعمل به يتم حفظ الملف PlayReady باكلمة ملفاً مضغوطاً باحدى البرتيشنات الموجودة بجهازى 

:: وعند الاستعادة بها يتم مسح ما بداخل PlayReady الاساسى كل ما بداخلة ويتم عمل نسخ من الملف ال مووجود بالبرتيشن ال المسار ال موجود بال C


الملفات المرفقة
.rar   restore.rar (الحجم : 71.32 ك ب / التحميلات : 19)
الرد }}}}
تم الشكر بواسطة:
#2
ما فهمته منك أخي العزيز قبل أن أبدأ،
الخطوة الأولى : أنت تريد نسخ المجلد PlayReady من مساره المحدد بحسب نو ع نظام التشغيل إللى سواقة أخرى، وهذا سوف يتم من خلال الزر Save.

الخطوة الثانية :
بدل مسح ما بداخل المجلد PlayReady سوف نقوم بحذفه كليا واسترجاعه من المسار الأساسي في السواقة C: بحسب نو ع نظام التشغيل.

السلام عليكم أخي العزيز ورحمة الله وبركاته،
لنحل معا الخطوة الأولى :
في البداية سوف نقوم باستخدام الـ object FileSystemObject لاستخدام الأداة CopyFolder، ولكي نستخدم هذا Object لا بد أولا من استداعاء Microsoft Scripting Runtime من Reference، اتبع الخطوات التالية :

   

   

   

قم باستدعاء مكتبة Scripting :
PHP كود :
Imports Scripting 

ثم ضع الكود التالي في الزر Save:
PHP كود :
  If RadioButton4.Checked True Then
            Dim files 
As New FileSystemObject
            files
.CopyFolder("C:\Users\admin\AppData\Local\Microsoft\Playready""D:\PlayReadyCopy"True)
 
       End If
 
       MsgBox("Copied Successfully"

   

أكمل باقي الإجابة بعد تناول الغذاء
الرد }}}}
تم الشكر بواسطة:
#3
شرح المطلوب فيديو
https://youtu.be/l_kkkumEwIo
الرد }}}}
تم الشكر بواسطة:
#4
السلام عليكم أخي العزيز ورحمة الله وبركاته
أولا قم بتنصيب الـ DLL التالي :

.zip   Ionic.Zip.zip (الحجم : 274.58 ك ب / التحميلات : 33)

عفوا قم بتنزيل وليس تنصيب
الرد }}}}
تم الشكر بواسطة:
#5
اكمل اخي انا احتاج لهذا الشرح كذالك
الرد }}}}
تم الشكر بواسطة:
#6
المرفق بعد التعديل :

.rar   khodor1985 - restore.rar (الحجم : 359.14 ك ب / التحميلات : 37)

إضافة Ionic zip dll إلى المشروع :
   

   

   

   

   

الأكواد :
زر الحفظ :
PHP كود :
If RadioButton1.Checked True Then
            Using zip 
As New ZipFile
                zip
.AddDirectory(TextBox1.Text "\" & "PlayRead", "PlayRead")
                zip.Save("
D:\PlayRead.zip")
            End Using
        End If

        If RadioButton3.Checked = True Then
            Using zip As New ZipFile
                zip.AddDirectory(TextBox2.Text & "
\" & "PlayRead", "PlayRead")
                zip.Save("
D:\PlayRead.zip")
            End Using
        End If

        If RadioButton2.Checked = True Then
            Using zip As New ZipFile
                zip.AddDirectory(TextBox3.Text & "
\" & "PlayRead", "PlayRead")
                zip.Save("
D:\PlayRead.zip")
            End Using
        End If


        If RadioButton4.Checked = True Then
            Using zip As New ZipFile
                zip.AddDirectory(TextBox4.Text & "
\" & "PlayRead", "PlayRead")
                zip.Save("
D:\PlayRead.zip")
            End Using
        End If 

زر الإستعادة :
PHP كود :
If RadioButton1.Checked True Then
            Dim ZipToUnPack 
As String "D:\PlayRead.zip"
            
Dim TargetZip As String TextBox1.Text

            Using zip 
As ZipFile ZipFile.Read(ZipToUnPack)
                
Dim z As ZipEntry
                
For Each z In zip
                    z
.Extract(TargetZipExtractExistingFileAction.OverwriteSilently)
                
Next
            End Using


        End 
If

        If 
RadioButton3.Checked True Then
            Dim ZipToUnPack 
As String "D:\PlayRead.zip"
            
Dim TargetZip As String TextBox2.Text

            Using zip 
As ZipFile ZipFile.Read(ZipToUnPack)
                
Dim z As ZipEntry
                
For Each z In zip
                    z
.Extract(TargetZipExtractExistingFileAction.OverwriteSilently)
                
Next
            End Using
       
        End 
If

        If 
RadioButton2.Checked True Then
            Dim ZipToUnPack 
As String "D:\PlayRead.zip"
            
Dim TargetZip As String TextBox3.Text

            Using zip 
As ZipFile ZipFile.Read(ZipToUnPack)
                
Dim z As ZipEntry
                
For Each z In zip
                    z
.Extract(TargetZipExtractExistingFileAction.OverwriteSilently)
                
Next
            End Using
        
        End 
If

        If 
RadioButton4.Checked True Then
            Dim ZipToUnPack 
As String "D:\PlayRead.zip"
            
Dim TargetZip As String TextBox4.Text

            Using zip 
As ZipFile ZipFile.Read(ZipToUnPack)
                
Dim z As ZipEntry
                
For Each z In zip
                    z
.Extract(TargetZipExtractExistingFileAction.OverwriteSilently)
                
Next
            End Using
        
        End 
If 

أتمنى لك التوفيق
الرد }}}}
#7
بعد اذنك اخي انا فعلت كل شئ لاكن عندما اضغط علي حفظ لا يعمل لي اي شئ
الرد }}}}
تم الشكر بواسطة:
#8
أرسل لنا مشروعك للإطلاع على صفحة الأكواد
الرد }}}}
تم الشكر بواسطة:
#9
(03-04-16, 07:16 PM)khodor1985 كتب : أرسل لنا مشروعك للإطلاع على صفحة الأكواد

المشروع حملته هو الذي انت صنعت هذه صورة بالمشكلة
الرد }}}}
تم الشكر بواسطة:
#10
المرفق :

.rar   khodor1985 - 1 - restore.rar (الحجم : 359.59 ك ب / التحميلات : 39)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Sad [سؤال] شباب اتمنى تساعدوني امانه عليكم تساعدوني دموع الوطن 2 22 منذ 1 دقيقه مضت
آخر رد: دموع الوطن
  sms كيف أرسل عن طريق برنامجي adel27 6 115 22-11-16, 09:17 PM
آخر رد: adel27
  [VB.NET] كيف اعمل برنامجي اصدار تجريبي... 3asfa~mdmra 0 46 16-11-16, 01:58 AM
آخر رد: 3asfa~mdmra
  اريد post لي جهاز ubnt .... خبراء sharo.azad 1 59 05-11-16, 06:58 PM
آخر رد: sharo.azad
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 8 263 05-11-16, 12:00 PM
آخر رد: Adrees
  اريد مساعدة في التعامل مع هذا الموقع بالفيجوال بيسك soper 2 81 03-11-16, 07:08 PM
آخر رد: soper
  اريد اجعل برنامجي يقبل اي نت فيرم ورك thevirus 2 111 31-10-16, 09:24 AM
آخر رد: thevirus
Photo [VB.NET] سؤالى عن انواع البيانات اريد اعرف نوع روابط الانترنت elhon.tec 4 98 27-10-16, 11:38 AM
آخر رد: ممدوح
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 7 2,471 22-10-16, 09:53 AM
آخر رد: abbas alshuily
Sad [سؤال] اريد صنع صفحة تسجيل دخول الي برنامج عن طريق داتابيس online sql sharo.azad 3 96 21-10-16, 04:07 AM
آخر رد: أبو عمر

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


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