如何删除％temp％目录中的所有文件？ VB

Question

我正在创建清理程序，我想清理％temp％目录中的所有文件，但找不到解决方案

这是我当前的代码，但是它不起作用，我不知道为什么。 当我单击按钮时，什么都没有发生，并且我以管理员模式运行程序。

    Dim tempclean As Thread
    Dim tempfolderpath As String = System.IO.Path.GetTempPath

    Public Sub tempcleaning()
        For Each filepath In Directory.GetFiles(tempfolderpath)
            Try
                File.Delete(filepath)
            Catch ex As Exception
            End Try
        Next
    End Sub

按钮代码

            tempclean = New System.Threading.Thread(AddressOf tempsmetlar)
            tempclean.Start()