Getting a file name

-=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- (c) WidthPadding Industries 1987 0\|717\|0 -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=- -=+=-
Socoder -> Blitz -> Getting a file name
Fri, 24 Apr 2009, 20:08
Evil Roy Ferguso	; Returns the 'filename' component of a pathname. Function GetFileName$(pathname$) ; start at the end of the string Local idx = Len(pathname) - 1 ; character we're inspecting Local c$ = "" ; loop back until we hit a / or \. While idx > 0 c = Mid(pathname, idx, 1) If c = "/" Or c = "\" Then Exit idx = idx - 1 Wend ; get just the filename part If idx > 0 pathname = Mid(pathname, idx+1) EndIf Return pathname End Function --v