Vb.net 基于DateModified将文件从一个目录复制到另一个目录

我在文件夹中有一些文件（.txt）列表，每个文件都有一些修改日期

现在我需要选择从今天到日期前2天的所有文件，并将其移动到另一个文件夹

---

有人能告诉我如何根据修改后的日期获取它们吗？

试试我写的方法：

Private Sub Test() Handles Button1.Click

    ' Get the file paths inside the textfile.
    Dim FilePaths As String() =
        IO.File.ReadAllLines("C:\File.txt")

    ' Get the file information of each filepath.
    Dim Files As IO.FileInfo() =
        (From FilePath As String In FilePaths
         Where Not String.IsNullOrEmpty(FilePath)
         Select New IO.FileInfo(FilePath)).ToArray

    ' Sort them by Date-Modified, and keep only files modified between 2 days to today.
    Files = (From [File] As IO.FileInfo In Files
             Order By [File].LastWriteTime Ascending
             Where [File].LastWriteTime.AddDays(-2).Year = Today.AddDays(-2).Year _
                   AndAlso [File].LastWriteTime.AddDays(-2).Month = Today.AddDays(-2).Month _
                           AndAlso [File].LastWriteTime.Day >= Today.AddDays(-2).Day).ToArray

    ' Iterate the files (to copy them for example).
    For Each [File] As IO.FileInfo In Files

        MsgBox(String.Format("Name: {0} | DateModified: {1}",
                             [File].FullName, [File].LastWriteTime.ToShortDateString & " " & Today.ToShortDateString))
    Next [File]

End Sub

End Sub

---

根据修改的日期对它们进行排序，这对您来说很容易。如果我手动进行，我更喜欢这样。但是我如何通过代码进行排序呢？如果您尝试过，请告诉我。您是否考虑过使用

robocopy

，而不是vbscript？解决方案是一个简单的命令行：

robocopy*.txt/MOV/MAXAGE:2