vb获得文件版本

vb获得文件版本




'工程--》引用--》勾选 Microsoft scripting runtime
Dim fver As String
Dim fso As FileSystemObject
Set fso = New FileSystemObject
  
For i = 0 To zs - 1
ugii = List1.List(i)
fver = fso.GetFileVersion("C:\1.exe") '获得文件版本

MsgBox fver


_____________________________________________________________________________ _

中磊UG二次开发教程 梅雷著 qq1821117007
学UG就上UG网 http://www.9sug.com/