ok grazie penso che farò qualcosa del genere:

codice:
len = instr(nomefile,"?")
if len > 0 Then nomefile = left(nomefile,len)
nomefile = StrReverse(nomefile)
len = instr(nomefile,".")
est = strReverse(left(nomefile,len))
Grazie per l'aiuto e per lo sviluppo