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 If
Copyright (C) 2012, Hitachi, Ltd.
Copyright (C) 2012, Hitachi Solutions, Ltd.