主题：[求助]删除文件时当文件已经打开时会显示错误提示，能否自动将文件关闭并删除？

Dim file As String = "d:\test.pdf"
ShowAppWindow(FileSys.GetName(file), 5)
If FileSys.FileExists(file) Then '如果指定的文件存在
    FileSys.DeleteFile(file, 2, 2) '则彻底删除之
    msgbox("删除完成")
End If