2009-11-14 5 views

답변

0

디렉토리의 모든 파일을 반복하고 각 파일의 확장명을 사용하는 경우. 그것이 당신의 목록에 이미 존재하지 않는지 그리고 추가하지 않았는지 확인하십시오. 모든 파일을 검토 할 때까지는 목록이 있습니다.

이렇게하는 방법은 하나도 없습니다.

+0

실제로 목록 대신 세트를 사용하면 중복 제거 로직을 쓸 필요가 없습니다. –

3

그들로부터 확장을 얻을 디렉토리에있는 모든 파일 가져 오기를 제거 중복 :

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

편집 :
변경 VB 구문

0

나는 VB와 LINQ 쿼리를 사용하십시오

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

당신은 다음과 같이 그들을 통해 반복 할 수 구문 속으로 .NET 그룹으로 :

For Each extension In extensions 
    Console.WriteLine(extension.Extension) 
Next 
관련 문제