GetVersionInfo ( PathName , 〔Version1Buff〕 , 〔Version2Buff〕 , 〔DescriptionBuff〕 , 〔LegalCopyrightBuff〕 , 〔CompanyNameBuff〕 , 〔OriginalFilenameBuff〕 , 〔ProductVersionBuff〕 , 〔ProductNameBuff〕 〔, InternalNameBuff〕 )
GetVerInfo ( PathName , 〔Version1Buff〕 , 〔Version2Buff〕 , 〔DescriptionBuff〕 , 〔LegalCopyrightBuff〕 , 〔CompanyNameBuff〕 , 〔OriginalFilenameBuff〕 , 〔ProductVersionBuff〕 , 〔ProductNameBuff〕 〔, InternalNameBuff〕 )
' ファイルバージョンを比較する。
Dim path1 ,ver1 ,ver2
path1 = "C:¥Program Files¥Hitachi¥Script¥Bin¥SPTXE.EXE"
ver0520 = "0005.0020.0000.0000"
GetVersionInfo ( path1 , ver1 , ver2)
If ver0520 < ver1 Then
MessageBox ( ver0520 + "よりも新しい。" + _NL_ + _
"ファイルバージョン:" + ver2 )
End If