+- منتدى فيجوال بيسك لكل العرب | منتدى المبرمجين العرب (http://vb4arb.com/vb)
+-- قسم : قسم لغة الفيجوال بيسك VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=182)
+--- قسم : قسم اسئلة VB.NET (http://vb4arb.com/vb/forumdisplay.php?fid=183)
+--- الموضوع : [VB.NET] عمل backup data (/showthread.php?tid=22884)
عمل backup data - alaahassan122 - 11-12-17
السلام عليكم ..
ارجو المساعدة اريد عمل برنامج يعمل نسخ ملفات معينه الموجوده علي الجهاز الي السيرفر كنسخه احتياطية علما بان الدالة تعمل ولكن يتم نسخ كل الملفات اريد عمل فلتر لامتدادت معينه
RE: عمل backup data - طالب برمجة - 11-12-17
كود عمل فلتر لامتداد معين
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
RE: عمل backup data - ahmedmansour - 11-12-17
ممكن لو انت بتستخدم Open File Dialog جرب هذا الكود مع التعديل الى ما يناسبك
PHP كود :
OpenFileDialog1.Filter = "database File*.mdb|*.mdb"
RE: عمل backup data - alaahassan122 - 12-12-17
(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