0

ご覧のとおり、次のコードは "CopierFolderforTestDriveCapstone" フォルダー内のすべてのファイルを抽出し、それらすべてを "FilesExtracted" フォルダーに配置します。私の質問は、すべてのファイルが「FilesExtracted」フォルダーに配置された後、最近変更されていないすべてのファイルを削除するにはどうすればよいかということです。過去数か月または昨年に変更されたファイルのみを保持したいと思います。ありがとう :)

System.IO をインポートします。

Public クラス 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
4

1 に答える 1