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