>>> 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() >>>>>