تقييم الموضوع :
  • 0 أصوات - بمعدل 0
  • 1
  • 2
  • 3
  • 4
  • 5
[VB.NET] عمل backup data
#1
السلام عليكم ..
 ارجو المساعدة اريد عمل برنامج يعمل نسخ ملفات معينه الموجوده علي الجهاز الي السيرفر  كنسخه احتياطية علما بان الدالة تعمل ولكن يتم نسخ كل الملفات اريد عمل فلتر لامتدادت معينه
الرد }}}
تم الشكر بواسطة:
#2
كود عمل فلتر لامتداد معين
PHP كود :
Dim files() As String IO.Directory.GetFiles("C:\", "*.txt") 

وإذا أرت البحث يشمل المجلدات التي داخل المسار تضيف SearchOption.AllDirectories
PHP كود :
Dim files() As String IO.Directory.GetFiles("C:\", "*.txt", IO.SearchOption.AllDirectories) 

وإذا أرت البحث بأكثر من إمتداد
PHP كود :
Dim files() As String IO.Directory.GetFiles("C:\", "*.*", IO.SearchOption.AllDirectories)
files = files.Where(Function(f) f.EndsWith("
.txt") Or f.EndsWith(".mdb")).ToArray 
الرد }}}
تم الشكر بواسطة: عبد العزيز البسكري
#3
ممكن لو  انت بتستخدم Open File Dialog  جرب هذا الكود مع التعديل الى ما يناسبك
PHP كود :
       OpenFileDialog1.Filter "database File*.mdb|*.mdb" 
الرد }}}
تم الشكر بواسطة:
#4
(11-12-17, 06:22 PM)ahmedmansour كتب : ممكن لو  انت بتستخدم Open File Dialog  جرب هذا الكود مع التعديل الى ما يناسبك
PHP كود :
       OpenFileDialog1.Filter "database File*.mdb|*.mdb" 


انا اعمل vb.net  وهذه الدالة التي استخدمها كيف يمكنني استخدم الفلترة بداخلها
 Private Shared Sub CopyDirectory(ByVal sourcePath As String, ByVal destPath As String)
            If Not Directory.Exists(destPath) Then
                Directory.CreateDirectory(destPath)
            End If
            For Each filee As String In Directory.GetFiles(sourcePath)
                Dim dest As String = Path.Combine(destPath, Path.GetFileName(filee))
                File.Copy(filee, dest)
            Next
            For Each folder As String In Directory.GetDirectories(sourcePath)
                Dim dest As String = Path.Combine(destPath, Path.GetFileName(folder))
                CopyDirectory(folder, dest)
            Next
  End Sub

(12-12-17, 12:10 PM)alaahassan122 كتب :
(11-12-17, 06:22 PM)ahmedmansour كتب : ممكن لو  انت بتستخدم Open File Dialog  جرب هذا الكود مع التعديل الى ما يناسبك
PHP كود :
       OpenFileDialog1.Filter "database File*.mdb|*.mdb" 


انا اعمل vb.net  وهذه الدالة التي استخدمها كيف يمكنني استخدم الفلترة بداخلها
 Private Shared Sub CopyDirectory(ByVal sourcePath As String, ByVal destPath As String)
            If Not Directory.Exists(destPath) Then
                Directory.CreateDirectory(destPath)
            End If
            For Each filee As String In Directory.GetFiles(sourcePath)
                Dim dest As String = Path.Combine(destPath, Path.GetFileName(filee))
                File.Copy(filee, dest)
            Next
            For Each folder As String In Directory.GetDirectories(sourcePath)
                Dim dest As String = Path.Combine(destPath, Path.GetFileName(folder))
                CopyDirectory(folder, dest)
            Next
  End Sub
الرد }}}
تم الشكر بواسطة:


المواضيع المحتمل أن تكون متشابهة .
الموضوع : الكاتب الردود : المشاهدات : آخر رد
  data type mismatch in criteria expression access um_noor20 3 438 08-10-23, 10:14 AM
آخر رد: um_noor20
  عمل نسخه احتياطيه والاستعاده لملف قاعدة بيانات Backup/Restore Localdb MDF file Owz 1 373 25-09-23, 11:52 AM
آخر رد: devpos
  تعديل بيانات data table المتألق9 1 480 19-03-23, 11:24 PM
آخر رد: عضو جديد
Star BackUp Database SQL 100% Kian Tech 7 5,105 27-02-23, 02:30 AM
آخر رد: جوزيفكوتيتو
  مشكلة في نقل قيمة الخلية الفارغة من data grid view الى ملف الاكسل Mohammed Nafa 1 350 12-01-23, 08:32 PM
آخر رد: salamandal
  Data Grid View mohamedassim 1 564 01-07-22, 06:41 PM
آخر رد: سعود
Lightbulb *○● قراءة نوع البيانات Data Type من قاعدة البيانات ●○* أبو خالد الشكري 10 1,738 29-06-22, 11:51 PM
آخر رد: أبو خالد الشكري
  [VB.NET] backup انشاء نسخ احتياطي من اجهزة على الشبكة محمد بوقزاحة 3 800 01-06-22, 05:20 PM
آخر رد: نيمو
  السلام عليكم 2 مشكله حقل data type نوع text لو الكود اكثر من 10احرف لا يضيف ahmedhhh2 4 1,294 17-03-22, 12:52 AM
آخر رد: ahmedhhh2
  السلام عليكم اريد استخدام هذا الجدول مع كتابة المسافه select*from patent data ahmedhhh2 4 1,186 22-11-21, 07:31 AM
آخر رد: ahmedhhh2

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


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