删除临时文件出的错误

Question

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”“权限拒绝”的提示？
我单步执行后发现是有个临时文件不让删除
有没有那位大侠遇到过类似的问题

Answer 1

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