从备份文件夹中删除具有当前日期的图像

Question

我有一个备份文件夹，其中有带有当前日期和过去日期的图像，我需要从当前日期的备份文件夹中删除图像的帮助。

我只是尝试使用以下代码从备份文件夹中删除图像：

For Each filepath As String In Directory.GetFiles(StrErrorInfo)
    File.Delete(filepath)
Next

For Each filepath As String In Directory.GetFiles(StrErrorInfo)
    File.Delete(filepath)
Next

上面的代码只会删除备份文件夹中的文件或图像，而不会删除当前日期文件。

我需要帮助从bakcup文件夹中删除具有当前日期的文件。

Answer 1

我认为这可以删除当天的所有文件

Dim di As DirectoryInfo = New DirectoryInfo("directory")

For Each fi In di.GetFiles("*", SearchOption.AllDirectories)
    Dim creationDate as Date = fi.CreationTime
    If creationDate = date.now()
        My.Computer.FileSystem.DeleteFile(fi)
    End if
Next