codice:
lcase(Left("nomefile.xxx",8))
al posto di 8 mettici l' InstrRev(".") così prendi dall'inizio della stringa fino a dove trova il punto iniziando a controllare dalla fine
altrimenti
codice:
stringa = "nomefile.xxx"
valori = Split(stringa,".")
nome = valori(0)
estensione = valori(1)
attento alla seconda che se nel nome del file c'è un punto va tutto a puttane