VB 定时删除 1-2 小时前创建的 TXT 文件

以下是一个 VB 设计的定时删除前两个小时到前一个小时的 txt 文件的示例代码：

Imports System.IO

Module Module1

    Sub Main()
        Dim currentTime As DateTime = DateTime.Now
        Dim twoHoursAgo As DateTime = currentTime.AddHours(-2)
        Dim oneHourAgo As DateTime = currentTime.AddHours(-1)

        ' 获取所有 txt 文件
        Dim txtFiles As String() = Directory.GetFiles('C:\目标文件夹路径\', '*.txt')

        ' 遍历所有 txt 文件
        For Each file As String In txtFiles
            Dim fileCreationTime As DateTime = File.GetCreationTime(file)

            ' 判断文件创建时间是否在指定时间范围内
            If fileCreationTime >= twoHoursAgo AndAlso fileCreationTime < oneHourAgo Then
                ' 删除文件
                File.Delete(file)
                Console.WriteLine('已删除文件: ' & file)
            End If
        Next

        Console.WriteLine('按任意键退出...')
        Console.ReadKey()
    End Sub

End Module

请注意，你需要将代码中的 'C:\目标文件夹路径\' 替换为你想要删除文件的目标文件夹的实际路径。此代码将在指定的文件夹中查找所有的 txt 文件，并删除创建时间在前两个小时到前一个小时之间的文件。删除操作将无法撤销，请谨慎运行。