删除临时文件出的错误

[上官云峰]

Private Sub mnu_exit_Click()
Dim vrn
Dim Fdir As String
Dim tmpfile As String
Dim a As String

vrn = MsgBox("感谢您使用本系统，您确定要离开本系统吗？", vbOKCancel, "提示")
If vrn = vbOK Then
Fdir = App.Path & "\*.tmp"
Do
tmpfile = ""
a = Dir(Fdir)
tmpfile = App.Path & "\" & a
If Len(a) = 0 Then
End
End If
Kill tmpfile
Loop While Len(a)

Else
MDIForm1.Show
End If
End Sub

出现适时错误“70”“权限拒绝”的提示？
我单步执行后发现是有个临时文件不让删除
有没有那位大侠遇到过类似的问题

[LCAAA]

这是因为你那个文件还在使用中

[wangdeshui]

还在使用中，请先释放

[上官云峰]

怎么释放？