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


meriterebbe il rilievo!!