Dim files() As String Dim fileList As New System.Text.StringBuilder Dim myDate As DateTime = Date.Parse("1/22/2008") Dim fileInfo As IO.FileInfo files = IO.Directory.GetFiles("C:\", "*.*") For i As Integer = 0 To files.Length - 1 fileInfo = New IO.FileInfo(files(1)) If fileInfo.LastWriteTime > myDate Then fileList.Append(files(i)) fileList.Append(Environment.NewLine) End If Next Dim writer As New IO.StreamWriter("C:\filelist.txt") writer.Write(fileList.ToString) writer.Close()