VB.NET 定时删除文件夹下所有 TXT 文件

你可以使用以下 VB.NET 代码来实现定时删除文件夹下所有 TXT 文件的功能：

Imports System.IO

Module Module1

    Sub Main()
        Dim folderPath As String = 'C:\YourFolderPath' ' 更改为你的文件夹路径
        Dim interval As Integer = 60 ' 每隔多少分钟删除一次文件

        While True
            ' 获取文件夹中的所有txt文件
            Dim files As String() = Directory.GetFiles(folderPath, '*.txt')

            ' 删除每个文件
            For Each file As String In files
                File.Delete(file)
            Next

            ' 等待指定的时间间隔（分钟）
            System.Threading.Thread.Sleep(interval * 60 * 1000)
        End While
    End Sub

End Module

在上面的代码中，你需要将 folderPath 变量的值更改为你想要操作的文件夹的路径。interval 变量表示每隔多少分钟删除一次文件。然后，通过使用 Directory.GetFiles 方法获取文件夹中的所有 TXT 文件，并使用 File.Delete 方法删除每个文件。最后，使用 System.Threading.Thread.Sleep 方法进行等待，等待指定的时间间隔后再次执行删除操作。整个过程将会一直循环执行，直到程序被停止。