راهنمایی برای جستجو و لیست کردن فایل ها ...

[Heidari66]

سلام


Try
For Each foundFile As String In My.Computer.FileSystem.GetFiles("c:\windows", FileIO.SearchOption.SearchAllSubDirectories)


ListView1.Items.Add(foundFile)

Next

Catch ex As UnauthorizedAccessException
MsgBox(ex.Message)
End Try


چطور میشه این خطا رو رد کرد؟!

[فرید نجفلو]

اگه تو ویندوز ویستا یا 7 باشید و خطای Access Deind می ده برنامه شما با مجوز کافی اجرا نمی شه!

تو این پست توضیح دادم چیکار کنید:
دلیل این خطا چیه ؟ اجازه نوشتن در txt رو تو سیستم دیگه نمیده (http://barnamenevis.org/showthread.php?333090-دلیل-این-خطا-چیه-؟-اجازه-نوشتن-در-txt-رو-تو-سیستم-دیگه-نمیده&highlight=Vista)

البته بعضی باز کردن فایل ها رو ممکنه با این کار هم نتونید انجام بدید ولی چون فعلا فایل رو باز نمی کنید فکر نکنم مشکلی پیش بیاد

[Heidari66]

ممنون
اونکارو که گفتی قبلا انجام دادم ولی مشکل هنوز بود

با این کد مشکل برطرف شد...



Public Class Form1

Private Sub FindFile(ByVal Dir As DirectoryInfo, ByVal filename As String)
Try
' Here is where the exception is thrown if access is denied
Dim files() As FileInfo = Dir.GetFiles(filename.ToString)

If files.Length > 0 Then
' add the files to the listbox
ListBox1.Items.AddRange(files)
' search each subdirectory
For Each di As DirectoryInfo In Dir.GetDirectories
FindFile(di, filename)
Next
End If
Catch ex As Exception
'MsgBox("Access denied to this folder")
End Try

End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
Dim dir As DirectoryInfo = New DirectoryInfo("c:\")
FindFile(dir, "*.*")
End Sub


End Class