|
| |
Code Sample: GetFileName Function
|
Public
Function GetFileName(FileName)
'=============================================
'PURPOSE: Returns the Filename of the file
' from the full path
'PARAMS: FileName File name with full path
'RETURNS: File Name
'=============================================
Dim Position
For Position = Len(FileName) To 1 Step -1
If
InStr("\", Mid(FileName, Position, 1)) Then Exit For
Next
GetFileName = Mid(FileName, Position + 1, Len(FileName) - Position)
End Function |
|
|
Dev Corner
