Export all embedded resources in AX 2012 by X++

#Define.MaxNumOfResources(60000)

int i, noOfRes, a[,1];
Image image;

new InteropPermission(InteropKind::ClrInterop).assert();

for (i=1; i<#MaxNumOfResources; i++)
{
if (Image::validResource(i))
{
noOfRes++;
a[noOfRes] = i;
}
}

for (i=1; i<=noofRes; i++)
{
image = new Image();

image.loadResource(a[i]);
image.saveImage(strFmt(@"C:\Users\bupark\Desktop\EmbeddedResourcesInAX2012\%1.png", a[i]),4);
}

CodeAccessPermission::revertAssert();