' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.Linq Imports System.IO Namespace E Public Class Program Private Shared ReadOnly wanted As String() = {".java", ".zip"} Public Shared Sub Main(args As String()) Dim di As New DirectoryInfo("C:\") For Each fi As FileInfo In di.GetFiles() If wanted.Contains(Path.GetExtension(fi.Name)) Then Console.WriteLine(fi.Name) End If Next End Sub End Class End Namespace