Asp > Strings

Get Filename

Get Filename

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