Come ottenere il nome di un File senza estensione dal percorso completo

'*********************************************
'Come ottenere il nome di un File senza estensione 
'dal percorso completo.
'fnome = path completa
'*********************************************
Function nomFilDaPathSenzaExt(ByVal fnome As String) As String
    Dim temp As String

    On Error Resume Next
    temp = Mid$(fnome, InStrRev(fnome, "\") + 1)
    If InStr(temp, ".") <> 0 Then
        nomFilDaPathSenzaExt = Left$(temp, InStr(temp, ".") - 1)
    Else
        nomFilDaPathSenzaExt = temp
    End If
End Function

Testato su: Tutti i Sistemi operativi