Thanks, RIc

Unfortunately, it is still for EACH loop that requires checking all and every file.
I am looking for the SORT by date approach, then I would use WHILE loop for earliest dates only.



>Well, here is another sample. Pick the best parts of both ;) I tested this one with 160K files distributed in 112 directories...
>
>

>Imports System.IO
>Module Module1
>    Dim filecount As Int32 = 0
>    Dim datEarliest As DateTime = Now()
>    Sub Main()
>        Console.WriteLine(Now())
>        Dim strDir As String = "s:\projects\pd\scans\"
>        Dim theSubDir As String
>        For Each theSubDir In Directory.GetDirectories(strDir)
>            AddFilesToDb(theSubDir)
>        Next
>        Console.WriteLine(Now())
>        Console.WriteLine(filecount)
>        Console.WriteLine(datEarliest)
>        System.Threading.Thread.Sleep(5000)
>    End Sub
>    Private Sub AddFilesToDb(ByVal theDirectory As String)
>        Dim theFile As String
>        For Each theFile In Directory.GetFiles(theDirectory)
>            filecount += 1
>            If File.GetLastWriteTime(theFile) < datEarliest Then datEarliest = File.GetLastWriteTime(theFile)
>            'Path.GetFileName(theFile) ' This will return just the file name - no path
>            'Path.GetFileNameWithoutExtension(theFile) ' this will return file name no path and no extention.
>        Next
>    End Sub
>
>End Module
>