![](https://www.cnblogs.com/Images/OutliningIndicators/ContractedBlock.gif)
![](https://www.cnblogs.com/Images/OutliningIndicators/ExpandedBlockStart.gif)
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