by Thesis (1 Submission)
Category: Files/File Controls/Input/Output
Compatability: Visual Basic 5.0
Difficulty: Unknown Difficulty
Originally Published: Mon 10th May 1999
Date Added: Mon 8th February 2021
Rating: (1 Votes)
Return only file name without path
WithOutPath = WithPath
Do Until InStr(WithOutPath, "\") = 0
AllLen = Len(WithOutPath)
Where = InStr(WithOutPath, "\")
WithOutPath = Right(WithOutPath, AllLen - Where)
Loop
FileName = WithOutPath
End Function