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

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

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

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

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

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


الملفات المرفقة
.rar   restore.rar (الحجم : 71.32 ك ب / التحميلات : 29)
الرد }}}}
تم الشكر بواسطة:
#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 ك ب / التحميلات : 50)

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

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

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


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  [VB.NET] اريد كود للكشف عن تغير عنوان الشبكة e-coder 0 18 أمس, 03:21 AM
آخر رد: e-coder
  [SQL] السلام عليكم امل عوض 2 74 21-09-17, 07:06 PM
آخر رد: أبو نوره
  [VB.NET] هل يوجد اكواد صوت مثل Beep للتنبيه hglogtd 7 126 20-09-17, 02:36 AM
آخر رد: hglogtd
  اريد كود لتحقق ان كان الفورم مفتوح ام لا The Light Fire 2 87 11-09-17, 06:57 PM
آخر رد: The Light Fire
  [VB.NET] السلام عليكم ارجوا المساعدة في التكست بوكس محمد بوقزاحة 1 55 10-09-17, 12:29 PM
آخر رد: سعود الشامان
  اريد طريقة دمج صورة مع صورة وحفظها كصورة واحدة soper 1 84 27-08-17, 12:01 PM
آخر رد: khodor1985
  [سؤال] اريد طريقة لمنع تكرار عناصر listbox riad21 3 324 26-08-17, 03:55 PM
آخر رد: حسن ايت حدو
  [VB.NET] اريد رابط مباشر لبرنامج السيكول سيرفر 2010 امل عوض 1 84 25-08-17, 12:01 PM
آخر رد: سعود الشامان
  ارجو المساعدة من اهل الخبرة اريد كود لعمل فورم نقل او تحويل الاصناف من مخزن الى مخزن احمد الامين 8 265 24-08-17, 06:23 AM
آخر رد: احمد الامين
  اريد طريقة الاتصال المباشر بقاعدة بيانات اكسس abudawoodd 1 304 22-08-17, 02:03 PM
آخر رد: نبيل كونكت

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


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