vb问题请教：如何判断一个文件是否正在被某个进程占用？

[mochuren]

我现在刚刚接触vb不久，现在做一个项目，要求能够在线检索到工作目录下有新的文件生成，并及时获取文件的数据。但文件的创建和写入数据是需要一定的时间的，我的问题是如何能够判断新生成的文件已经创建完毕，并及时打开此文件进行下一步的操作?
'******************************'
'****处理获取的工件数据文件****'
'******************************'
mypath = Dir1.Path & "\*.dgr" '获取当前工作目录
myname = Dir(mypath)
myfile = Dir1.Path & "\" & myname

If myname <> "" Then
f = FreeFile
Open myfile For Input Lock Read As f
上面的一段代码显示我是如何在线检测到新文件的生成，并打开此文件，问题是文件刚被创建，但还没有写入数据或数据未写入完，程序就能获取到新文件名，并能打开此文件进行下一步的操作，这时获得的数据是不完整的，得到的结果肯定也是错误的。
不知道那位大侠知道该如何解决这个问题，告诉小弟一下，不胜感激！

[mochuren]

为什么没有人顶呢？

[嗷嗷叫的老马]

不需要有人顶.

你自己可以点击"将帖子提前"自己顶.

找不到的话可以使用CTRL+F搜索一下.

[verywzm]

尝试把文件改名，再改回来，然后设置一个出错处理，如果出错，说明有程序占用。

[fzx4936]

请问lz你如何知道新文件的文件名?Dir(mypath) ?