You can use a script like this in OnOnline, and OnPreviewRender:
`
dim quad as xpBaseObject
dim mat as xpMaterial
dim shader as xpBaseShader
dim text as xpTextObject
Self.GetObjectByName("Text1", text)
Self.GetObjectByName("Quad1", quad)
if quad.GetMaterial(0, mat) then
if mat.GetShader(0, shader) then
text.text = "The filename is: " + shader.filename
end if
end if
`
#XPression