|
Displaying Source Code(s)
|
|
Get Filename
--------------------------------------------------------------------------------
Description : This function get the a the filename from a path
with filename.
Example: c:wwwrootgaleryimageface.jpg
Return = face.jpg
Public function GetFilename(ByVal strGetPath)
Dim nPos, strFilename
Dim strDir
strFilename = ""
strGetPath = cstr(strGetPath)
if Not len(strGetPath) = 0 Then
nPos = InStrRev(strGetPath, "", Len(strGetPath))
if nPos > 0 Then
strFilename = Right(strGetPath, Len(strGetPath) - nPos)
'Response.Write strFilename
End if
nPos = InstrRev(strGetPath, "", Len(strGetPath) - nPos)
if nPos > 0 Then
strDir = Right(strGetPath, Len(strGetPath) - nPos)
Else
strDir = ""
End if
End if
GetFilename = strFilename
End function
|
|
|
123
Eng