如何从 For Each 循环中获取最大值

Question

下面的代码将给出指定文件夹中的所有数字目录名称。 如何从生成的列表中获取最大值和总数？

Dim DirInfo = New DirectoryInfo(Environment.CurrentDirectory + "Data")
For Each FolderInfo In DirInfo.EnumerateFileSystemInfos()
If IsNumeric(FolderInfo.Name) Then
'
'
'
End If
Next

Answer 1

使用 linq：

Dim DirInfo = New DirectoryInfo(Environment.CurrentDirectory + "Data")
Dim list = DirInfo.EnumerateFileSystemInfos().Where(Function(x) IsNumeric(x.Name)).Select(Function(x) Double.Parse(x.Name)).ToList()
Dim max = list.Max()
Dim count = list.Count()