(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