Ho capito tutto:


codice:
' pippo & estensione
estensione = right(NomeFile,3)
NomeFile = pippo & "." & estensione
inserisco questo dopo il codice che ho postato prima e risolvo.