Question

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

VB.NET遍历查找目录下的ABC文件夹，并找出此ABC文件夹中文件体积最大的一个文件列出到ListView1,
ListView1的列分别是“文件名”、“文件大小”、“文件格式”、“文件路径”
希望越详细越好，谢谢！

Answer 1

解压密码：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

详见源代码！！

追问

非常感谢。。。我测试后是我要的，附件里的版本比我的高，我是直接拿代码测试的

但是我在测试大的文件夹的时候（40G左右）会出错。

追答

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
        If FileName <> Nothing Then '修改的地方
            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 If
    End Sub
End Class

请问还会出现错误吗？

追问

其实我做这个是一个辅助小工具，我下载的蓝光原盘电影文件夹里都会有..\BDMV\STREAM\这样的目录，而在STREAM这个目录里最大的文件就是真正的视频文件。
我测试了下好像不能遍历子文件夹哦，能帮我再修改下吗？我先把分给你，先谢谢了！！