vb.net - vb.net はすべてのファイルを別の場所にコピーし、日付をフィルターしてログを表示しました

Question

すべてのファイルを別の場所にコピーすると、このプログラムは -7 日間フィルターをかけ、別の場所にコピーすると、すべてのファイルが .log にコピーされたことを示します。すべてのファイルをその場所にコピーしたときはいつでも、ログを取得するのにまだ苦労しています。下記を参照してください：

Imports System

Imports System.IO

Public Class Form1

Private Sub Button4_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click


        Dim DirectoryToCopy As String
        Dim NewCopy As String

        Dim d As Date = Date.Today
        d = d.AddDays(-7)


        DirectoryToCopy = "c:\test\hmm.gdb"
        NewCopy = "D:\Data\hmm.gdb"

        'NewCopy = "D:\Data\hmm.gdb" & d.AddDays(-7)

        Dim objWriter As New System.IO.StreamWriter("D:\Data\update.log")


        If System.IO.Directory.Exists(DirectoryToCopy) = True Then

            My.Computer.FileSystem.CopyDirectory(DirectoryToCopy, NewCopy, True)

            Directory.GetFiles(NewCopy, d)
            d = Directory.GetCreationTime(NewCopy)
            System.IO.File.Copy(DirectoryToCopy, NewCopy)
            ' System.IO.File.Copy(NewCopy, "D:\Data\update.log")


            'objWriter.WriteLine("file copy")
            'objWriter.Close()

            'MsgBox("File Copied")

        End If
 End Sub
End Class