codice:
Files("Name")= lCase(Left(tmpName ,InstrRev(tmpName,".")-1))
nomeImmagine = Replace(Files("name")," ","_")
Files("Name")=nomeImmagine