使用VB检查目录中的最新文件夹，然后转到该目录并重复此过程

Question

我是VB的新手

我正在尝试在VB中编写一个脚本，用于检查最新文件夹（或最后一个要修改的文件夹）的特定目录，然后进入该文件夹并再次执行相同的操作。所以我想知道我应该怎么做呢？我已经有一个脚本按字母顺序进入最后一个文件夹，但我需要知道如何让它选择最新的文件夹？

脚本：

Imports System
Imports System.IO
Module Module1

    Sub Main()
        Dim dir As String
        Dim dir2 As String
        Dim fil As String

        For Each dir In Directory.GetDirectories("\\alinta.net.int\alintadata\SOP\mdl database\Weekly Readings")
            Console.WriteLine(dir)
            Dim lat As New System.IO.DirectoryInfo(dir)
            Console.WriteLine(lat.LastAccessTime)
        Next

        For Each dir2 In Directory.GetDirectories(dir)
            Console.WriteLine(dir2)
            Dim lat2 As New System.IO.DirectoryInfo(dir2)
            Console.WriteLine(lat2.LastAccessTime)
        Next

        For Each fil In Directory.GetFiles(dir2, "*.txt")
            Console.WriteLine(fil)
        Next



        Console.WriteLine("...")
        Console.ReadLine()


    End Sub

End Module