Visual Basic中要转换为字符串的数组元素

Question

我用Visual Basic编写了以下代码：

    Dim directory As String = Application.StartupPath()
    Dim dirinfo As New DirectoryInfo(directory)
    Dim filesnatt As String() = dirinfo.GetFiles("*.nat")
    Dim filenatt As String
    For Each filenatt In filesnatt
        Dim filenat As String = Str(filenatt)
        Using re As StreamReader = New StreamReader(filenat)
            Dim val As String = re.ReadLine()
            If val.Contains(TextBox2.Text) Then
                Dim a1 As String = filenat
                a1 = a1.Remove(".nat")
                ComboBox2.Items.Add(a1)
            End If
        End Using
    Next

但是我收到此错误：无法将'System.IO.FileInfo的1维数组的值转换为String的1维数组，因为'System.IO.FileInfo'不是从'String'派生的。

如何解决？

Answer 1

那就是因为GetFiles返回FileInfo而不是String更改

Dim filesnatt as String() to Dim filesnatt as FileInfo()

和

Dim filenatt as String to Dim filenatt as FileInfo

并在For Each循环中使用

Dim filenat as String = filenatt.FullName