将文件从一个目录复制到另一个基于DateModified的目录

Question

我有一些文件（.txt）在一些文件夹中有一些DateModified的列表。

现在我需要选择所有文件从今天的日期到日期前2天，我需要将它移动到其他文件夹。

任何人都可以让我知道我如何得到他们基于修改日期？

Answer 1

试试这个办法，我已经写了：根据修改日期

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