取得目錄下所有檔案名稱

'取得目錄下所有檔案名稱
Public Class Form1
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim fArray() As String
        fArray = IO.Directory.GetFiles("C:\windows\", "*.txt")
        For Each f As String In fArray
            Debug.Print(f)
        Next
    End Sub
End Class