Database Search

TechHome

• Directory Compare Report
• Directory Index
• Directory Permissions Reporter
• Distribute Directory Tree
• Distribute Directory Trees to Multiple Targets
• File and Folder Properties Tool
• File Info to Delimited Text File
• FileVerInfo Example
• FileVerInfo with Searcher for Recursion
• Get size of all subdirectories in a given directory
• How to Make Two Directories Identical
• Keep Track of File versions Utility
• More Ways to Check and Set File Attributes
• Recursive Directory Walker
• Recursive FileSize Example
• Recursively Set Attributes on Files
• Replicate Data from one Directory to Another
• Search and Replace Utililty
• Subtract one Directory Tree from Another
• Synchronize Files between Source and Destination Example 1
• Synchronize Files between Source and Target Example 2
• TreeCopy Utility - a Smarter XCOPY

Can't find the information you are looking for here? Then leave a message over on our WinBatch Tech Support Forum.

FileVerInfo Example

Keywords:  FileVerInfo	

; Version Information Example WinBatch Script

FileN = AskFileName("Ver Info","","Versioned|*.dll;*.exe|All Files|*.*|","",1)

ErrorMode(@OFF)
FComments = FileVerInfo(FileN, "", "Comments")
FCompany = FileVerInfo(FileN, "", "CompanyName")
FDescription = FileVerInfo(FileN, "", "FileDescription")
FVersion  = FileVerInfo(FileN, "", "FileVersion")
FInternalName = FileVerInfo(FileN, "", "InternalName")
FLegalCopyright = FileVerInfo(FileN, "", "LegalCopywrite")
FOriginalFilename = FileVerInfo(FileN, "", "OriginalFilename")
FProductName = FileVerInfo(FileN, "", "ProductName")
FProductVersion = FileVerInfo(FileN, "", "ProductVersion")
ErrorMode(@Cancel)

MyDialogFormat=`WWWDLGED,5.0`

MyDialogCaption=`WIL Dialog`
MyDialogX=4
MyDialogY=21
MyDialogWidth=241
MyDialogHeight=147
MyDialogNumControls=19

MyDialog01=`70,2,168,DEFAULT,VARYTEXT,FComments,""`
MyDialog02=`2,2,66,DEFAULT,STATICTEXT,DEFAULT,"Comments:"`
MyDialog03=`2,16,64,DEFAULT,STATICTEXT,DEFAULT,"Company:"`
MyDialog04=`70,16,168,DEFAULT,VARYTEXT,FCompany,""`
MyDialog05=`2,30,64,DEFAULT,STATICTEXT,DEFAULT,"Description:"`
MyDialog06=`70,30,168,DEFAULT,VARYTEXT,FDescription,""`
MyDialog07=`2,44,64,DEFAULT,STATICTEXT,DEFAULT,"Version:"`
MyDialog08=`70,44,168,DEFAULT,VARYTEXT,FVersion,""`
MyDialog09=`2,58,64,DEFAULT,STATICTEXT,DEFAULT,"Internal Name:"`
MyDialog10=`70,58,168,DEFAULT,VARYTEXT,FInternalName,""`
MyDialog11=`2,72,64,DEFAULT,STATICTEXT,DEFAULT,"Legal Copyright:"`
MyDialog12=`70,72,168,DEFAULT,VARYTEXT,FLegalCopyright,""`
MyDialog13=`2,86,64,DEFAULT,STATICTEXT,DEFAULT,"Original Filename:"`
MyDialog14=`70,86,168,DEFAULT,VARYTEXT,FOriginalFilename,""`
MyDialog15=`2,100,64,DEFAULT,STATICTEXT,DEFAULT,"Product Name:"`
MyDialog16=`70,100,168,DEFAULT,VARYTEXT,FProductName,""`
MyDialog17=`2,114,64,DEFAULT,STATICTEXT,DEFAULT,"Product Version:"`
MyDialog18=`70,114,168,DEFAULT,VARYTEXT,FProductVersion,""`
MyDialog19=`86,130,64,DEFAULT,PUSHBUTTON,DEFAULT,"Ok",1`

ButtonPushed=Dialog("MyDialog")

More Sample Code:

fn="C:\Incoming\Outlook.exe"

lang0=""
lang1="040904E4"
lang2="040904B0"
lang3="000004E4"
lang4="04090000"
lang5="00000000"
langmax=5


for xx=0 to langmax
   info=FileVerInfo(fn,lang%xx%,"CompanyName")
   if info!="" then break
next
Message(xx,info)

Article ID:   W13778

Filename:   FileVerInfo Example.txt

File Created: 1999:04:15:16:56:18

Last Updated: 1999:04:15:16:56:18