主题：删除指定文件夹下的所有文件夹及文件

我想在窗口中建立一个按钮，点击这个按钮就删除项目下名为“临时文件”的文件夹下所有文件（这个“临时文件”不用删除，只删除它里面的所有文件），不知道代码怎么写，谢谢了

    Dim pth As String = ProjectPath & "AllMyFiles\检验科\"
    For Each File As String In FileSys.GetFiles("& pth &")
        FileSys.DeleteFile("File",2,2)
    Next

麻烦老师帮修改一下？