VB.NET遍历查找某个文件夹，并找出指定文件

解压密码：1299

假设路径为C:\abc

代码：

Public Class Form1
    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
        Dim Files As ObjectModel.ReadOnlyCollection(Of String) = My.Computer.FileSystem.GetFiles("C:\abc")
        Dim FileSize As Long, FileName As String = Nothing
        Dim oFileSize As Long
        For Each File As String In Files
            oFileSize = My.Computer.FileSystem.GetFileInfo(File).Length
            If oFileSize > FileSize Then
                FileSize = oFileSize
                FileName = File
            End If
        Next
        Dim ListN As ListViewItem = New ListViewItem(My.Computer.FileSystem.GetName(FileName))
        ListN.SubItems.Add(oFileSize & " byte")
        ListN.SubItems.Add(My.Computer.FileSystem.GetFileInfo(FileName).Extension & " 文件")
        ListN.SubItems.Add(FileName)
        ListView1.Items.Add(ListN)
    End Sub
End Class

详见源代码！！