' 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 Inputs: stringa con il Nome e la Path del file Returns: Restituisce solo il nome del File Utilizza la funzione 'StrReverse' presente solo nell'ultima versione VB (6.x) |