如何从 VB.Net 中的 Private Sub 调用 public 函数？

Question

我正在 vb.net 中制作防病毒软件，我有一个按钮可以扫描整个 C:/ 驱动器。我有一段代码来验证文件，但我不知道如何从我的按钮调用它。我希望文件列在列表框中。

扫一扫：

 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

我收到错误：

Severity Code Description Project File Line Suppression State Error BC30311 Value of type 'ListBox' cannot be converted to 'String'. 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

如何从 VB.Net 中的 Private Sub 调用 public 函数？

How can I call a public function from a Private Sub in VB.Net?

string

vb.net

listbox