在 Vb.net 中查找文件和 UnauthorizedAccessException 问题

Question

我正在尝试在 Vb.Net 2010 中搜索文件的驱动器号（C 驱动器）。找到文件路径后，我想运行可执行文件。这是我试图用来查找文件的代码：

path = Convert.ToString(IO.Directory.GetFiles("C:\", "wswc.exe", System.IO.SearchOption.AllDirectories))

当我的代码尝试搜索回收站（或我无权访问的其他文件）并且我已经搜索了互联网并且人们建议使用 Try...Catch... 时，这会引发 UnauthorizedAccessException结束尝试，但这对我不起作用，因为我没有使用循环，而且我不知道如何将我的代码更改为循环。我已经看到有人建议在搜索目录之前使用 GetAccessControl 方法来测试权限，但我不确定如何将它与我当前的代码一起使用。

由于 UnauthorizedAccessException，我无法测试 Convert.ToString(...)，所以如果此代码或任何其他代码有问题，请告诉我。

我对 VB.Net 还很陌生，所以请尽量让您的解释保持简单。

谢谢。

Answer 1

我最初问了这个问题，现在我有代码可以在所有目录中搜索文件。我觉得有义务发布实际代码，以便有类似问题的人可以使用我的。我正在使用其他帐户，因为我似乎无法登录我创建的帐户。您需要四个列表框来运行此代码。

    'Run the file if found
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
    Dim path As String

    'Search for a specified file
    Start_Search(ListBox1)

    For k = 0 To ListBox2.Items.Count - 1
        Try
            ListBox2.SelectedIndex = k
            path = ListBox2.SelectedItem.ToString
            System.Diagnostics.Process.Start(path)
        Catch ex As Exception
        End Try
    Next
    Quit()

End Sub

    'Set the root of your search
    Private Sub Start_Search(ByVal listbox1 As ListBox)
    Dim strroot As String
    strroot = "C:\"
    listbox1.Items.Add(strroot)
    Search(listbox1, ListBox2)
    End Sub

    'Search all directories and sub-directories in the search root(s)
    Private Sub Search(ByVal listbox1 As ListBox, ByVal listbox2 As ListBox)
    Dim listbox4 As New ListBox

    'Get all sub-directories of all items in your search root(s) (listbox1), 
    'clear listbox1, copy all sub-directories into listbox1 
    For j = 0 To listbox1.Items.Count - 1
        listbox1.SelectedIndex = j
        Try
            For Each strfolder As String In   My.Computer.FileSystem.GetDirectories(listbox1.SelectedItem.ToString)
            listbox4.Items.Add(strfolder)
            Dim junk = listbox4.Items.Count - 1
            Next
        Catch ex As Exception
        End Try
    Next
    listbox1.Items.Clear()
    listbox1 = listbox4

    'every directory that throws an UnauthorizedAccessException is 
    'placed into listbox3. Then there is a recursive call on listbox3 
    '
    For i = 0 To listbox1.Items.Count - 1
        Try
            listbox1.SelectedIndex = i
    'You can place the file you are looking for in this line
            listbox2.Items.AddRange(System.IO.Directory.GetFiles(listbox1.SelectedItem.ToString & "\", "File to Find.exe", System.IO.SearchOption.AllDirectories))
        Catch ex As UnauthorizedAccessException
            ListBox3.Items.Add(listbox1.SelectedItem.ToString)
        Catch ex1 As Exception
        End Try

    Next
    If listbox2.Items.Count > 0 Then
        Return
    ElseIf ListBox3.Items.Count >= 0 Then
        Search(ListBox3, listbox2)
    End If
    Return
End Sub

我希望这段代码对某人有用。它对我有用，但其中可能存在错误。感谢您对 Carmelo La Monica 的帮助。

Answer 2

试试看这个帖子

http://social.msdn.microsoft.com/Forums/en-US/Vsexpressvb/thread/255be857-9d1e-4c80-9ae2-5c8b48697943/

问候。