' Collection of code snippets by Arne Vajhøj ' posted to eksperten.dk, usenet and other places (2002-now) Imports System Imports System.IO Module Main Sub Main() Dim sr As StreamReader = New StreamReader("C:\dir.lst") Dim line As String line = sr.ReadLine While Not(line Is Nothing) Dim files() As String = Directory.GetFiles(line) Dim f As String For Each f In files Console.WriteLine(f) Next line = sr.ReadLine End While End Sub End Module