循环读文件夹的文件

Public Shared Sub ReadFile() 
       Dim i As Integer 
       Dim FileName() As String 
       Dim FileNo As Integer    
       FileName = Directory.GetFiles("d:\a") 
       FileNo = Directory.GetFiles("d:\a").Length  
      For i = 0 To FileNo - 1         
       Dim strFileName As String = FileName(i) 
      Next 
   End Sub