تقييم الموضوع :
  • 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)
الرد }}}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  اريد تحول الكود لفيجوال 2008 abudawoodd 6 177 15-01-17, 02:11 PM
آخر رد: abudawoodd
Exclamation [سؤال] كيف اشغل برنامجي على جميع الفريموروك mudz 29 7,565 10-01-17, 02:00 PM
آخر رد: solbi
  اريد كود غلق الفورم الحالى وفتح فورم اخر ali.alfoly 8 2,853 04-01-17, 09:18 PM
آخر رد: jojo2014
  [VB.NET] كيف اغلاق برنامجي عن بعد 3asfa~mdmra 10 270 27-12-16, 02:41 AM
آخر رد: %Eman%
  مساعده اريد كود لحذف عدد من الصفوف من الداتا قرد فيو وكذلك تنحذف من قاعدة البيانات معتز الجازوي 2 111 25-12-16, 01:44 PM
آخر رد: thevirus
  اريد كود لفتح ملف صوتى فى اداة ويندوز ميديا بلير من ملف الريسورس المبرمج الاسطورى 5 576 23-12-16, 03:16 PM
آخر رد: silverlight
  [VB.NET] سؤالى عن new Tabpage اريد نسخ جميع المحتوى والاكواد فى تاب جديد elhon.tec 1 95 20-12-16, 09:10 AM
آخر رد: amgad525
  [VB.NET] اريد إضافة صورة للموظف في جدول أخر بنفس قاعدة البيانات أبووسم 11 569 18-12-16, 07:15 PM
آخر رد: أبووسم
  اريد كود يضغط على F1 بسرعه اقل من ثانيه mohamedabd 10 281 15-12-16, 05:53 PM
آخر رد: mohammed moh
  اريد امثلة او شرح ل AsyncVoidMethodBuilder الماجيك مسعد 2 78 15-12-16, 04:04 PM
آخر رد: الماجيك مسعد

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


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