刪除複製到文件夾中的未修改文件

Question

您可以看到以下代碼將提取我的「CopierFolderforTestDriveCapstone」文件夾中的所有文件，並將它們放入我的「FilesExtracted」文件夾中。我的問題是，所有文件都放入「FilesExtracted」文件夾後，如何刪除最近未修改的所有文件。我只想保留過去幾個月內修改過的文件，或者在過去的一年中任何一個都能很好地解決問題。謝謝:)

進口System.IO

公共類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 
     Dim txtFiles = Directory.EnumerateFiles(sourceDirectory) 

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

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

End Sub 

Answer 1

您可以使用DirectoryInfo類和FileInfo類來獲得連接到文件

Try 
    Dim di As DirectoryInfo = new DirectoryInfo(sourceDirectory) 
    Dim fi as FileInfo() = di.GetFiles() 
    ..... 

    For Each currentFile As FileInfo In fi 
     File.Move(currentFile.FullName, Path.Combine(archiveDirectory, currentFile.Name)) 

     Dim dt As DateTime = currentFile.LastWriteTime 
     ' Add 3 months to the last write and check if it is less than today ' 
     if dt.AddMonths(3) < DateTime.Today then 
      File.Delete(currentFile.FullName) 
     End If 
    Next 
Catch eT As Exception 
    Console.WriteLine(eT.Message) 
End Try 

不同的時間屬性的信息