Produktversion einer Datei auslesen

Computer: Software & Programmierung Visual Basic
#1

Hi!

Ich habe ein Skript (mit Excel VBA) gebastelt, mit dem ich unter anderem die Produktversion einer .dll auslese. (Ohne zu wissen ob das nicht mit VB besser funktioniert)

Dies funktioniert über die Methode GetDetailsOf(File, Index) wunderbar. Unter der Indexnummer 39 verbirgt sich die Produktversion.
Es funktioniert z.B. unter folgendem Pfad:
C:\Programme\Company\Details\Client

Hingegen in folgendem Pfad
C:\Dokumente und Einstellungen\user\Anwendungsdaten
bekomme ich anstelle der Produktversion nur die Bezeichnung, also das Wort „Produktbezeichnung“ zurück…

Weiß jemand an was das liegt bzw. wie ich das hinbekommen könnte?
Ich bin da auch für neue andere Ansätze dankbar! :smile:

Vielen Dank und viele Grüße!

#2

Hingegen in folgendem Pfad
C:\Dokumente und Einstellungen\user\Anwendungsdaten
bekomme ich anstelle der Produktversion nur die Bezeichnung,
also das Wort „Produktbezeichnung“ zurück…

Der Rückgabewert soll natürlich „Produktversion“ heißen…

#3

Hallo Jack,

zeige bitte mal deinen vorhandenen relevanten Code.

Gruß
Reinhard

#4

Hier ist der relevante Teil:

Dim objShell As Object
Set objShell = CreateObject(„shell.application“)

AktuellerUser = Application.UserName
'MsgBox AktuellerUser
FilenameTM = „C:\Dokumente und Einstellungen“ & AktuellerUser & „\Lokale Einstellungen\Anwendungsdaten\file.dll“

Dim objFolder: Set objFolder = objShell.Namespace(objFSO.GetParentFolderName(FilenameTM))
Dim strFileName: strFileName = objFSO.GetFileName(FilenameTM)
Dim oFile: Set oFile = objFolder.ParseName(strFileName)
Dim nIdx: nIdx = 39 'Produktversion
FileVersion = objFolder.GetDetailsOf(oFile, nIdx)