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