JP1 Version 9 JP1/Script(Windows(R)用)
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 IfCopyright (C) 2009, 2011, Hitachi, Ltd.
Copyright (C) 2009, 2011, Hitachi Solutions, Ltd.