Detail: VBS - Dateiversionen auslesen

01.04.2010 - VBS - Dateiversionen auslesen

Es kann nützlich sein, die unterschiedlichen Versionen einer Datei auszulesen, um später damit weiter arbeiten zu können. Beispielsweise um einen Datenaustausch vorzunehmen. Dazu nutzen wir das FSO (File System Object).
Im folgenden Beispiel sollen alle Daten aus dem Verzeichnis C:\Windows\System32 aufgelistet und deren Versionsnummer angezeigt werden.

' Heiko Jendreck - personal helpdesk & webdesign
' http://www.phw-jendreck.de
' 2010.04.01 Vers 1.0
' Dateiversionen mittels VB-Script auslesen

Option Explicit
Dim oFso,sFolder,sFile,sVersion
sFolder = "C:\Windows\System32"
set oFso = CreateObject("Scripting.FileSystemObject")
For Each sFile In oFso.GetFolder(sFolder).Files
sVersion = sVersion & sFile.Name & vbTab & oFso.GetFileVersion(sFile) & vbCrLf
Next
MsgBox(sVersion)

zurück

Copyright © 2003 - 2011, Heiko Jendreck, All rights reserved
http://www.phw-jendreck.de / Heiko Jendreck; Friedrichstrasse 20; 68782 Brühl