Visual Basic - 최근 수정 된 파일 만 다른 폴더로 복사

Question

다음 코드는 특정 폴더 내부의 모든 파일을 추출한 다음 모든 파일을 복사하고 다른 폴더에 저장합니다. 내 질문은 오늘 원래 폴더에서 추출한 파일 만 최근에 수정되도록이 코드를 어떻게 수정해야합니까? 오늘부터 수정 된 파일 만 추출하는 방법을 보여줄 수 있다고해도 훌륭한 일입니다. 도와 주신 모든 분들께 감사드립니다!

Imports System.IO 

Public Class frmExtractionator 

Dim txtFiles1 As Control 

Private Sub btnStart_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnStart.Click 

    Dim sourceDirectory As String = "E:\CopierFolderforTestDriveCapstone" 
    Dim archiveDirectory As String = "E:\FilesExtracted" 

    Try 
     'DeleteUnmodifiedFiles(sourceDirectory, -14) 

     Dim txtFiles = Directory.EnumerateFiles(sourceDirectory) 

     If (Not System.IO.Directory.Exists(archiveDirectory)) Then 
      System.IO.Directory.CreateDirectory(archiveDirectory) 
     End If 



     For Each currentFileLoc As String In txtFiles 
      Dim fileName = currentFileLoc.Substring(sourceDirectory.Length + 1) 
      File.Move(currentFileLoc, Path.Combine(archiveDirectory, fileName)) 
     Next 
    Catch eT As Exception 
     Console.WriteLine(eT.Message) 
    End Try 
End Sub 

Answer 1

Directory.GetLastWriteTime 메서드를 사용하면 파일이 마지막으로 기록 된시기를 확인할 수 있습니다. 링크에서

:

날짜와 지정된 파일이나 디렉토리에 기록 된 마지막 시간을 돌려줍니다.

Dim checkDate As Date = Date.Parse("01/1/2013") 

For Each currentFileLoc As String In txtFiles 
    Dim fileName = currentFileLoc.Substring(sourceDirectory.Length + 1) 
    If Directory.GetLastWriteTime(Path.Combine(sourceDirectory, fileName)) > checkDate Then 
     File.Move(currentFileLoc, Path.Combine(archiveDirectory, fileName)) 
    End If 
Next