主题：判断文件是否打开

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

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

 

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

好象没办法。

FileIsOpened只能判断access、excel、word等有限的类型文件，对其它比如文本文件、图片文件等都是无效的。

谢谢C版，怎么才能关闭指定的文件呢？

Dim Proc1 As New Process '定义一个新的Process
Proc1.File = "E:\车间数据库\Publish\佶龙机加二车间数据管理系统" '指定文件路径
Proc1.Close()'关闭文件

不同的外部程序，支持的动作会不同，只要Verbs动作支持Close就可以，否则办法。

 

代码关闭狐表的指定（非本项目）项目怎么写，谢谢

 

这个我不会，估计在获取进程名后再干掉指定的项目。