CreateObject+GetObject=判断文件运行状态．
依据：
http://msdn.microsoft.com/zh-cn/library/7t9k08y5(v=VS.80).aspx
CreateObject 函数 (Visual Basic)
http://msdn.microsoft.com/zh-cn/library/e9waz863(VS.80).aspx
GetObject 函数 (Visual Basic)
以MSDN介绍的Excel为例，讨论的问题如下：
1 test.xls是否存在(指定路径)．
2 test.xls是否打开（避免重复打开）
3 test.xls如果没有打开，打开test.xls
现在网上有很多VB无缝控制Excel程序有很多问题
最突出的问题，就是CreateObject + Add方法，结果是打开了N个Excel
发此帖的目的是希望各位大侠积极参与，小结一个通用的方法，实现CreateObject+GetObject在各个应用程序中的应用．
如word Ppt cad中的应用，道理都是一样的．
Private Sub getExcel()
Dim fileName As String = "c:\vb\test.xls"
If Not My.Computer.FileSystem.FileExists(fileName) Then
MsgBox(fileName & " does not exist")
Exit Sub
End If
' Set the object variable to refer to the file you want to use.
Dim excelObj As Object = GetObject(fileName)
' Show Excel through its Application property.
excelObj.Application.Visible = True
' Show the window containing the file.
Dim winCount As Integer = excelObj.Parent.Windows.Count()
excelObj.Parent.Windows(winCount).Visible = True
' Insert additional code to manipulate the test.xls file here.
' ...
excelObj = Nothing
End Sub
[解决办法]
只能接分。。。不知道你问什么。。。
另外这个应该是VB.NET 2005+的程序，怎么跑到VB板块来了。
[解决办法]
嗯，My.Computer.FileSystem.FileExists是VB.NET里的名空间，好像是连c#都不能直接用的，要using个啥才行：）
