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