Trouble using ExtProp.au3

[fxg4758 0]

Hi all. I start to use this function _GetExtProperty($sPath, $iProp) from Simucal in my program, but when it run, my program is increased more 4 Mega in RAM and remains with this value. Can someone tell me why this happens? Regards.

Func _GetExtProperty($sPath, $iProp)
    Local $iExist, $sFile, $sDir, $oShellApp, $oDir, $oFile, $aProperty, $sProperty
    $iExist = FileExists($sPath)
    If $iExist = 0 Then
        SetError(1)
        Return -1
    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]
            For $i = 0 To 34
                $aProperty[$i] = $oDir.GetDetailsOf ($oFile, $i)
            Next
            Return $aProperty
        Else
            $sProperty = $oDir.GetDetailsOf ($oFile, $iProp)
            Return $sProperty
        EndIf
    EndIf
EndFunc   ;==>_GetExtProperty

[jaberwacky 327]

You're really worried about 4MB?

Maybe shell.application is a large object or something?

[water 2,384]

Set

$oShellApp = 0

at the end of the function and the memory for the shell.application should be released.

Edited August 1, 2011 by water