تقييم الموضوع :
  • 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 ك ب / التحميلات : 40)

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

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

إضافة 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 ك ب / التحميلات : 40)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
Exclamation [سؤال] كيف اشغل برنامجي على جميع الفريموروك mudz 34 9,449 اليوم, 12:39 AM
آخر رد: lola alo
  [VB.NET] اريد حل لموضع تايمر ضمن الاكواد تالية e-coder 5 112 21-05-17, 09:38 PM
آخر رد: Amir_alzubidy
  [VB.NET] اريد وضع مؤقت بدون تايمر داخل هذا الكود + المشروع بالكامل e-coder 0 47 19-05-17, 04:09 PM
آخر رد: e-coder
  [VB.NET] اريد كود حفظ العمل على البرنامج ؟؟ عامر الجبوري 4 91 16-05-17, 12:54 PM
آخر رد: عامر الجبوري
  سلام عليكم ... مساعدة في اكمال المشروع لو سمحتوا ramimohammed 1 80 11-05-17, 09:56 AM
آخر رد: جميل علي
Information [سؤال] السلام عليكم أخواني انا اوس من العراق مبرمج مبتدء وانا اقوم الأن بأنشاء اول مشروع لي اوس باسم عبد الحميد 3 113 29-04-17, 02:06 AM
آخر رد: اوس باسم عبد الحميد
  فضلا ، اريد كود لرومنة الأسماء العربية الى الحروف الانجليزية السكر المغرور 11 1,461 28-04-17, 04:30 PM
آخر رد: usamahub
  السلام عليكم مساعدة هامة اخواني قاعدة بيانات اكسيس 2007 تعطلت mohammed.gadain61 4 121 23-04-17, 11:04 PM
آخر رد: عبـدالله
  [VB.NET] السلام عليكم ... ارجوا المساعدة .... فـــCOMBOBOBX محمد بوقزاحة 2 129 23-04-17, 02:23 PM
آخر رد: ahmedfa71
  عندي جدولين اريد جملة sqlتقوم باظهار الاسماء الموجودة في الجدول الاول وليست موجودة في محمد محمود الغرياني 2 143 22-04-17, 02:19 AM
آخر رد: ابو ليلى

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


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