ExtractPAth
' Copiare questa funzione in un Modulo Base Public Function ExtractFileName(strPath As String) strPath = StrReverse(strPath) strPath = Left(strPath, InStr(strPath, "\") - 1) ExtractFileName = StrReverse(strPath) End Function
' Copiare questa funzione in un Modulo Base
Public Function ExtractFileName(strPath As String)
strPath = StrReverse(strPath)
strPath = Left(strPath, InStr(strPath, "\") - 1)
ExtractFileName = StrReverse(strPath)
End Function
(extractpath.html)- by Paolo Puglisi - Modifica del 25/3/2019