主题：判断文件是否打开

我在一项目窗口按钮中设置如下代码来关闭另一个项目：

If FileIsOpened("E:\车间数据库\Publish\佶龙机加二车间数据管理系统")= True Then '判断一个项目文件是否打开
    Dim Proc1 As New Process '定义一个新的Process
    Proc1.File = "E:\车间数据库\Publish\佶龙机加二车间数据管理系统" '指定文件路径
    Proc1.Close()'关闭文件
End If

请问以上代码问题在哪里。谢谢