Get the texture name from selected polygon?

In MEL, is there a way to get the name of a texture (not material) that a selected polygon of selected object is using?

Thanks
Liver

yes:)

string $maya\_mat[] =`ls -mat`, $ffn,$ext;
for($mat in $maya\_mat) 
{
$mm = `nodeType $mat`;
  if( $mm== "lambert" )
  {
    string $cc = $mat+".color"; string    $color\_texture[] = `listConnections -type "file" $cc`;
  if($color\_texture[0]!="")  // image\_map 
  { 
	$a = $color\_texture[0]+".fileTextureName";
	$ffn = `getAttr $a`;
	print($ffn);
	}
   }
}