Sapere l'estenzione dato un percorso

[IKON]

  
  Do
    i% = i1%
    i1% = InStr(i% + 1, file$, ".")
  Loop While i1% > 0
  
  If i% = 0 Then
    FileEst$ = ""
  Else
    FileEst$ = Mid$(file$, i%)
  End If

:mavieni: