Jump to content

file version


laura

Recommended Posts


Here is a VBS script that will get the file version of the file.

All you hace to do is drag and drop the file or files onto

the script.

Save As FileVersion.vbs

[code] Dim F1, F2, F3, F4
Dim Fso :Set Fso = CreateObject("Scripting.FileSystemObject")
If WScript.Arguments.Count = 0 Then
MsgBox "Error: This Needs At Least One File Drop On This," & vbCrLf & _
"Script To Be Able To Read It Version Number",4128,"Error No File"
Else
For Each F1 In WScript.Arguments
If Right(InStr(F1,"."),5) Then
F2 = Fso.GetFileVersion(F1)
Set F4 = Fso.GetFile(F1)
If Len(F1) Then
F3 = F3 & F4.Name & vbTab & F2 & vbCrLf
Else
F3 = F3 & F4.Name & vbTab & "No file version information available." & vbCrLf
End If
End If
Next
End If
MsgBox F3,4128,"File Version"[/code]

Link to comment
Share on other sites

Create an account or sign in to comment

You need to be a member in order to leave a comment

Create an account

Sign up for a new account in our community. It's easy!

Register a new account

Sign in

Already have an account? Sign in here.

Sign In Now
  • Recently Browsing   0 members

    • No registered users viewing this page.
×
×
  • Create New...