Ich habe unter Win Xp 32Bit diese Funktion in einem Programm verwendet.
Jetzt unter Win 7 64Bit gibt die Funktion mit selben Übergaben "none" zurück, heißt dass $sProperty leer ist.
Ich denk dass es an dem ObjCreate( "shell.application" ) liegt.
Kennt jmd das Problem und hat jmd eine Lösung?
Func _GetExtProperty( $sPath, $iProp )
Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty
$sFile = StringTrimLeft( $sPath, StringInStr( $sPath, "\", 0, -1 ) )
$sDir = StringTrimRight( $sPath, ( StringLen( $sPath ) - StringInStr( $sPath, "\", 0, -1 ) ) )
$oShellApp = ObjCreate( "shell.application" )
MsgBox(0,"", $oShellApp )
$oDir = $oShellApp.NameSpace( $sDir )
$oFile = $oDir.Parsename( $sFile )
$sProperty = $oDir.GetDetailsOf( $oFile, $iProp )
If $sProperty = "" Then
Return "None"
Else
Return $sProperty
EndIf
EndFunc
Danke schon mal ![]()