codice:
dim parte() as string

  parte = split(percorso,"\")
  nomefile = parte(ubound(parte))