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

عفوا قم بتنزيل وليس تنصيب
الرد }}}}
تم الشكر بواسطة:
#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)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] السلام عليكم ... ارجوا المساعدة .... كود الحفظ محمد بوقزاحة 3 36 منذ 9 ساعة مضت
آخر رد: مساعدة
  [سؤال] اريد مثال على طريقة ادراج صورة من السكانر ناصر شير 0 40 20-02-17, 02:45 PM
آخر رد: ناصر شير
Question [سؤال] اريد حل لهذه المشكلة دعم العربية shwehdi4pc 1 91 11-02-17, 02:35 AM
آخر رد: مساعدة
  السلام عليكم .... ارجوا المساعدة في الجمع التكست بوكس محمد بوقزاحة 8 156 08-02-17, 11:50 AM
آخر رد: محمد بوقزاحة
  اريد كود تنسيق التاريخ bidaya 10 283 06-02-17, 03:08 AM
آخر رد: bidaya
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 2 97 01-02-17, 07:05 PM
آخر رد: محمد بوقزاحة
  السلام عليكم .... ارجوا المساعدة محمد بوقزاحة 11 267 31-01-17, 08:22 PM
آخر رد: محمد بوقزاحة
  اريد select check item --- alwasela 4 102 31-01-17, 02:08 AM
آخر رد: محمد كريّم
  اريد طريقة الاتصال المباشر بقاعدة بيانات اكسس abudawoodd 0 98 30-01-17, 02:58 PM
آخر رد: abudawoodd
  [VB.NET] اريد عمل مثل هذا الاتصال 3asfa~mdmra 4 165 29-01-17, 11:08 PM
آخر رد: 3asfa~mdmra

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


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