[VBA程序]：VBA编了个小程序,发现个很奇怪的现象

fact

Sub main()
    Dim Source As String
    Dim Target As String
    Dim fs As New FileSystemObject
   
    Source = "D:\1.DGN"
    Target = "C:\"
   
     ActiveDesignFile.Close
     fs.CopyFile Source, Target, True

     OpenDesignFile Target +"1.dgn", False, msdV7ActionUpgradeToV8

End Sub

这个程序我简化写出来让大家看一下，大概结构就是这样，就是把D盘1.dgn拷贝到C盘上，覆盖掉，然后打开C盘的1.dgn。
问题就是，如果程序执行前打开的文件就是C盘的1.dgn，那么，如果当前打开的图做过了修改，不管在执行程序时选择保存或者不保存，这个程序执行都没有任何问题，但如果一打开C盘的1.dgn不作任何改动，就执行程序，那么在“OpenDesignFile Target +"1.dgn", False, msdV7ActionUpgradeToV8”这一句上就出错了，图像显示不正常，某些图层不显示出来，而且microstation也会提示出错。但是，如果把microstation关闭，重新打开microstation，再把C盘的1.dgn打开的话，又是完全正常的，说明拷贝是成功的，就是OPEN的时候出错，出什么错我就实在搞不清楚了。

不知道我说清楚没有，我实在想不通这是怎么回事。

呃，折腾了半天可能是这个文件有点问题，还是不知道什么问题

torun

这涉及到文件的独占性访问问题!现在已打开的文件再进行处理是不允许的!