Advertisement
2002C VB function enhancement #8724

ExtractFileName

It extracts a filename from a filepath.

AI

Podsumowanie AI: 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.

Kod źródłowy
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
Oryginalne komentarze (3)
Odzyskane z Wayback Machine