如何正確枚舉所選路徑中的文件？

Question

的Visual Studio 2008（vb.net） 我做了簡單的anivirus但是當我做全掃描這段代碼：

FolderBrowserDialog1.SelectedPath = ("C:\") 
    'first scan:************************************ 
    Try 

     For Each strDir As String In 
     System.IO.Directory.GetDirectories(FolderBrowserDialog1.SelectedPath) 

      For Each strFile As String In System.IO.Directory.GetFiles(strDir) 

       ListBox1.Items.Add(strFile) 

      Next 
     Next 

     'Start the timer: 

    Catch ex As Exception 
    End Try 

    Timer1.Start()` 

只需掃描前6個文件... 我想從Windows文件夾權限問題（Windows - Program Files ...等） 那麼如何解決它？

Answer 1

你可以嘗試以下方法：

For Each strFile As String In System.IO.Directory.GetFiles(strDir, "*", IO.SearchOption.AllDirectories) 

編輯：

你可以嘗試在此線程找到的最後一個解決辦法： http://www.vbforums.com/showthread.php?t=624969

我嘗試這樣做我自己，這是超慢，但工作得很好。

Public Class Form1 

    Private Sub foo(ByVal aDir As String) 
     Try 

      Dim di As New IO.DirectoryInfo(aDir) 
      Dim aryFiles() As IO.FileInfo = di.GetFiles("*.*") 
      Dim aryDirs() As IO.DirectoryInfo = di.GetDirectories() 

      For Each fi As IO.FileInfo In aryFiles 
       rslts.Add(fi.FullName) 
      Next 

      For Each d As IO.DirectoryInfo In aryDirs 
       foo(d.FullName) 
      Next 

     Catch ex As Exception 
      'Stop 'the catch should be more specific 
     End Try 

    End Sub 

    Dim rslts As List(Of String) 

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load 
     rslts = New List(Of String) 
     foo("C:\") 
     ListBox1.Items.Clear() 
     ListBox1.Items.AddRange(rslts.ToArray) 
    End Sub 
End Class 

看起來您的解決方案基本上是通過它可以找到的第一個文件夾循環並停在那裏。該解決方案有點不同，因爲它會基於起始位置遞歸遍歷所有文件和文件夾。

Answer 2

將Console.WriteLine(ex)放入您的catch塊，以便您可以看到引發的任何異常。那麼你可能會看到你的問題。最有可能的權限。