Advertisement
4_2005-2006 VB function enhancement #151455

ExtractFileName

It extracts a filename from a filepath.

AI

AI Samenvatting: This codebase represents a historical implementation of the logic described in the metadata. Our preservation engine analyzes the structure to provide context for modern developers.

Broncode
original-source
Public Function ExtractFileName(ByVal strPath As String) As String
 ' StrReverse is only working in VB6
 strPath = StrReverse(strPath)
 strPath = Left(strPath, InStr(strPath, "\") - 1)
 ExtractFileName = StrReverse(strPath)
End Function

Upload
Originele reacties (3)
Hersteld van de Wayback Machine