[问题求助] VBS如何取得文件的产品版本情报？

'获取C:\MyFolder中每个文件的文件版本和产品版本

Set objShell = CreateObject ("Shell.Application")
Set objFolder = objShell.Namespace ("C:\MyFolder")

Dim arrHeaders(300)

For i = 0 to 300
        arrHeaders(i) = objFolder.GetDetailsOf (objFolder.Items, i)
Next

For Each strFileName in objFolder.Items

        Wscript.echo strFileName & ": " 

        For i = 0 to 300
                If i = 156 then
                        Wscript.echo arrHeaders(i) & ": " & objFolder.GetDetailsOf (strFileName, i) 
                End If
                If i = 271 then
                        Wscript.echo arrHeaders(i) & ": " & objFolder.GetDetailsOf (strFileName, i) 
                End If
        Next
Next

WScript.Sleep 5000
复制代码