Custom Query (3910 matches)

The following script was working with standard release It does not work with Beta

Local $invalidProc ="DoesNotExist"
;~ Local $n
;~ $n=Call($invalidProc) ; to go around a bug
;~ ConsoleWrite('@@ Debug(' & @ScriptLineNumber & ') : $n = ' & $n & @CRLF & '>Error code: ' & @error & '    Extended code: 0x' & Hex(@extended) & @CRLF) ;### Debug Console
;~ 	CheckFuncRet(51, "", $n, 0, 0xDEAD, 0xBEEF, "not exist")
	CheckFuncRet(51, "", Call($invalidProc), 0, 0xDEAD, 0xBEEF, "not exist")

Func CheckFuncRet($n, $fonc, $var, $ok, $error, $extended, $com)
	MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '($Var = $ok)' & @lf & @lf & 'Return:' & @lf & ($Var = $ok) & @lf & @lf & '@Error:' & @lf & @Error & @lf & @lf & '@Extended:' & @lf & @Extended) ;### Debug MSGBOX
	Return ($Var = $ok)
EndFunc

If executed not Embedded it is ok

I found the following script does nt behave the same

Dim $args[1]
$args[0] = "CallArgArray"
$n = Call("Test1", $args)
MsgBox(262144,'Debug line ~' & @ScriptLineNumber,'Selection:' & @lf & '$n' & @lf & @lf & 'Return:' & @lf & $n & @lf & @lf & '@Error:' & @lf & @Error & @lf & @lf & '@Extended:' & @lf & @Extended) ;### Debug MSGBOX

Func Test1()
	Return 1
EndFunc

At present FileFindNextFile sets @extended to 1 if the return is a folder. Could this behaviour be extended to give more attribute information in all cases?

The FindNextFileW call returns the current attributes in the FileAttributes part of the structure - BitAnd could then extract the the standard values as set out in ​http://msdn.microsoft.com/en-us/library/windows/desktop/gg258117(v=vs.85).aspx.

I realise this would be script-breaking in that it would require a BitAND(@extended) rather then a simple If @extended to detect folders, but in my opinion the advantage of not having to use a subsequent FileGetAttrib command on the returned file/folder outweigh that.

M23