منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

السلام عليكم ..
ارجو المساعدة اريد عمل برنامج يعمل نسخ ملفات معينه الموجوده علي الجهاز الي السيرفر كنسخه احتياطية علما بان الدالة تعمل ولكن يتم نسخ كل الملفات اريد عمل فلتر لامتدادت معينه

كود عمل فلتر لامتداد معين

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 

ممكن لو انت بتستخدم Open File Dialog جرب هذا الكود مع التعديل الى ما يناسبك

PHP كود :

       OpenFileDialog1.Filter = "database File*.mdb|*.mdb" 

(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

منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب

alaahassan122

طالب برمجة

ahmedmansour

alaahassan122