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



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


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