如何從 VB.Net 中的私有子調用公共 function？

Question

我正在 vb.net 中制作防病毒軟件，我有一個按鈕可以掃描整個 C:/ 驅動器。 我有一段代碼來驗證文件，但我不知道如何從我的按鈕調用它。 我希望將文件列在 ListBox 中。

掃描：

 Public Function GetFilesRecursively(path As String, searchPattern As String) As String()
    Dim filePaths As New List(Of String)(Directory.GetFiles(path, searchPattern))

    For Each folderPath In Directory.GetDirectories(path)
        Try
            filePaths.AddRange(GetFilesRecursively(folderPath, searchPattern))
        Catch ex As UnauthorizedAccessException
            'Ignore inaccessible folders
        End Try
    Next

    Return filePaths.ToArray()
End Function

按鈕：

Private Sub button9_Click(sender As Object, e As EventArgs) Handles button9.Click
    GetFilesRecursively(Environment.SystemDirectory, ListBox1)
    ProgressBar1.Update()
    Timer1.Start()
End Sub

我收到的錯誤：

嚴重性代碼 描述 項目文件行抑制 State 錯誤 BC30311 類型“列表框”的值無法轉換為“字符串”。 Scorpion Defender PRO D:\Scorpion Defender PRO\Scorpion Defender PRO\Form3.vb 52 Active

我該如何解決？

Answer 1

Dim DirectoryInfo As New System.IO.DirectoryInfo("C:\")
On Error Resume Next
For Each file In DirectoryInfo.EnumerateFiles("*", searchOption:=IO.SearchOption.AllDirectories)

Next