如何强行删除一个文件

我在做程序的时候，需要删除一个文件，可总是说该文件正在使用，请问有何种方法可以强行删除它？我做的代码如下
    Dim fso As New FileSystemObject, fil As File, ts As TextStream
    If Dir(App.Path & "\Incept\Cute.bak") <> "" Then
        Set fil = fso.GetFile(App.Path & "\Incept\Cute.bak")
        fil.Delete ‘在这后面有个参数，True和False 我都试过了，不行
    End If