codice:
Ext = lCase( Mid(img,InStrRev(IMG,".")+1) )
Ma la variabile d non la puoi dichiarare intermente alla funzione GetIcon?