Udf: Get Extended File Property

[Melba23]

Overkill,

The properties and their index numbers are different depending on the OS. The attached file is what I have gleaned from t'interweb.

M23

[Overkill]

Overkill,

The properties and their index numbers are different depending on the OS. The attached file is what I have gleaned from t'interweb.

M23

I'm on XP...the list can be modified on the machine to include other values (for instance, the +4 attribs on my PC). That's what I was talking about.

[TheSaint]

Apologies for reviving an oldish post, but many like me are still probably using the UDF - though it does seem to have issues between versions of Windows, etc.

@Simulcal - I note that you use the following code

$sProperty = $oDir.GetDetailsOf ($oFile, $iProp)
            If $sProperty = "" Then
                Return 0
            Else
                Return $sProperty
            EndIf

which I believe should just be

$sProperty = $oDir.GetDetailsOf ($oFile, $iProp)
            Return $sProperty

Reason being, that it is not necessarily a failure when their is nothing to be returned (i.e. ID3 tags), so '0' is not right.

It should be up to the caller, to deal with what is returned (i.e. nothing = 0 in specific cases).

You also have in your remarked section

On Failure - 0, @Error - 1 (If file does not exist)

yet you use the following in your code (which doesn't match)

$iExist = FileExists($sPath)
    If $iExist = 0 Then
        SetError(1)
        Return 0

So maybe the Return should be -1 to do so.

If I haven't said so before, thanks for the UDF!

It has been very handy in a few of my programs - though I've only used it with Win XP.

Just recently I was caught out when I discovered that the UDF was returning '0' for the ID3 comment tag, which I definitely didn't want displaying in my Viewer field.

I've of course adjusted your UDF for my program, but I thought it best to advise about it also.

I realize I could have just adjusted my program to convert '0' into '', but I thought it much proper for your UDF to be returning the true value as is.

[jWalker]

Attempting to get resolution of a pic

Always returning 0

Win7

What's the problem?

:EDIT:

$sProperty = $oDir.GetDetailsOf ($oFile, $iProp)
If $sProperty = "" Then
Return "ajshdkasjdh"
Else
Return $sProperty
EndIf>

Changed "0" to "ajshdkasjdh"

There is the Problem...

So $sProperty doesnt give me anything back...

Edited October 14, 2011 by jWalker

[KaFu]

So what's $iProp? As mentioned somewhere above, the index number depends on the OS and also on the OS language!

[gcue]

removing post and posting to help section instead of here (since issue can be related to other scripts as well not just the one on this thread)

Edited May 19, 2015 by gcue

[Valandric]

I know this topic is pretty old but I am having trouble getting the _GetExtProperty and _GetFileProperty to work. This is not recognized at all for me with the latest version 3.6.6 and I have tried downloading beta. Has this been changed or am I still missing something?

[gcue]

happy to contribute my finding.  this addition shows the property name in addition to the property value for to ensure you are looking at the right property value :)

Func _GetExtProperty($sPath, $iProp)
    Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty
    $iExist = FileExists($sPath)
    If $iExist = 0 Then
        SetError(1)
        Return 0
    Else
        $sFile = StringTrimLeft($sPath, StringInStr($sPath, "\", 0, -1))
        $sDir = StringTrimRight($sPath, (StringLen($sPath) - StringInStr($sPath, "\", 0, -1)))
        $oShellApp = ObjCreate ("shell.application")
        $oDir = $oShellApp.NameSpace ($sDir)
        $oFile = $oDir.Parsename ($sFile)
        If $iProp = -1 Then
            Local $aProperty[35][2]
            For $i = 0 To 34
                $aProperty[$i][0] = $oDir.GetDetailsOf (Null, $i)
                $aProperty[$i][1] = $oDir.GetDetailsOf ($oFile, $i)
            Next
            Return $aProperty
        Else
            $sProperty = $oDir.GetDetailsOf ($oFile, $iProp)
            If $sProperty = "" Then
                Return 0
            Else
                Return $sProperty
            EndIf
        EndIf
    EndIf
EndFunc   ;==>_GetExtProperty

 

Edited November 8 by gcue