SHD.NET
شنبه 22 تیر 1392, 18:13 عصر
سلام، من توسط فانکشن زیر و کد زیر فایلهایی رو درون رایو یا هر پوشه ای که بخوام سرچ می کنم،
Private Function SearchAndAddToListWithFilter(ByVal path As String, ByVal filters As String(), ByVal searchSubFolders As Boolean) As List(Of IO.FileInfo)
If Not IO.Directory.Exists(path) Then
End
End If
Dim searchOptions As IO.SearchOption
If searchSubFolders Then
searchOptions = IO.SearchOption.AllDirectories
Else
searchOptions = IO.SearchOption.TopDirectoryOnly
End If
Return filters.SelectMany(Function(filter) New IO.DirectoryInfo(path).GetFiles(filter, searchOptions)).ToList
End Function
Dim filters As String() = {"*.mp3"}
Dim path As String = "c:\"
Dim foundFiles As List(Of IO.FileInfo) = SearchAndAddToListWithFilter(path, filters, True)
اما یه مشکل بزرگ دارم، این که وقتی داره سرچ رو انجام میده بعضی فولدر ها که دسترسی مجاز ندارن، باعث اررور دادن برنامه میشن، من از کد On error resume next استفاده کردم تو فانکشن، اررور برطرف میشه ولی دیگه عملیات ادامه پیدا نمیکنه، کسی میتونه راهنمایی کنه ؟؟
ممنون
Private Function SearchAndAddToListWithFilter(ByVal path As String, ByVal filters As String(), ByVal searchSubFolders As Boolean) As List(Of IO.FileInfo)
If Not IO.Directory.Exists(path) Then
End
End If
Dim searchOptions As IO.SearchOption
If searchSubFolders Then
searchOptions = IO.SearchOption.AllDirectories
Else
searchOptions = IO.SearchOption.TopDirectoryOnly
End If
Return filters.SelectMany(Function(filter) New IO.DirectoryInfo(path).GetFiles(filter, searchOptions)).ToList
End Function
Dim filters As String() = {"*.mp3"}
Dim path As String = "c:\"
Dim foundFiles As List(Of IO.FileInfo) = SearchAndAddToListWithFilter(path, filters, True)
اما یه مشکل بزرگ دارم، این که وقتی داره سرچ رو انجام میده بعضی فولدر ها که دسترسی مجاز ندارن، باعث اررور دادن برنامه میشن، من از کد On error resume next استفاده کردم تو فانکشن، اررور برطرف میشه ولی دیگه عملیات ادامه پیدا نمیکنه، کسی میتونه راهنمایی کنه ؟؟
ممنون