强制删除文件（其他进程正在使用的文件或还没释放的文件）

@sunshinebean
@…烟花飘飘…
@cbm666

@ys蟋蟀
@FL_飞羽流星
@v b2070
@5555饿的
@键盘上的节奏
@美珍子
@李静乙
@chengd222
@顾名思义》
@u2nn
@硬盘序列号验证
@gy_jiansmile
@破瓷罐
@qq1132244364
@NaylonSlain
@无聊耍耍酷
@popmoon
@VBzhuyongxing
@Phantom_三水
@hhyjq007
@天天那么得瑟
@龙翔飞飞12

我有一个驱动级的强制删除程序，但只支持FTA

程式1源码：
Option Explicit
Private Sub Form_Load()
Dim i As Integer
i = FreeFile
Open "c:\temp.txt" For Output As #i
Close i
End Sub
note:我在close i 设了个断点，所以文件会被占用；
程式2源码：
Option Explicit
Private Sub Command1_Click()
Dim fso As New FileSystemObject
Call fso.DeleteFile("c:\temp.txt", True)
End Sub
noted:执行 Call fso.DeleteFile("c:\temp.txt", True)会报错，没有使用权限；