2009-11-14 48 views

回答

0

如果循环遍历目录中的所有文件并获取每个文件的扩展名。检查它是否不存在于你的列表中,如果没有添加它。当你浏览所有的文件时,你会得到你的清单。

没有一种方法可以做到这一点。

+0

实际上,如果使用Set而不是List,则不必编写任何重复数据删除逻辑。 – 2009-11-14 22:28:16

3

获取目录中的所有文件,从他们那里得到了扩展,并删除重复:

Dim extensions As String() = _ 
    Directory.GetFiles(path) _ 
    .Select(Function(f As String) Path.GetExtension(f)) _ 
    .Distinct() _ 
    .ToArray() 

编辑:
改为VB语法

0

我会使用LINQ查询与VB .NET 集团通过进入语法:

Dim extensions = From file In New DirectoryInfo(path).GetFiles() _ 
       Group file By file.Extension Into Group 

然后,您可以遍历它们像这样:

For Each extension In extensions 
    Console.WriteLine(extension.Extension) 
Next 
相关问题