编写的OCX中，如何得到使用该OCX的工程版本号及最后修改日期？急！！！！

Question

编写的OCX中，如何得到使用该OCX的工程版本号及最后修改日期？急！！！！

Answer 1

Private Sub Command1_Click()
Dim obj
Set obj = CreateObject("scripting.filesystemobject")
MsgBox obj.GetFileVersion("c:\windows\system\COMCT232.OCX")
End Sub

Answer 2

http://community.csdn.net/Expert/FAQ/FAQ_Index.asp?id=198076
最后修改日期

Answer 3

回复人： online(龙卷风V2.0--再战江湖) ( ) 信誉：298  2004-08-14 16:24:00  得分: 0  
 
 
   Private Sub Command1_Click()
Dim obj
Set obj = CreateObject("scripting.filesystemobject")
MsgBox obj.GetFileVersion("c:\windows\system\COMCT232.OCX")
End Sub
  
 
===================================
这样得到的是组件的版本号！
我是这样的情况：
做的一个控件，
控件中有版本信息，
如果将此控件放于窗体上，
该窗体工程版本写在控件版本信息内！
如何实现？？
===================================