' Pfad entfernen
Function GetFileName(FileName)
Dim TmpFileName
TmpFileName = FileName
TmpFileName = Trim(Replace(TmpFileName,"", "/"))
TmpFileName = Right(TmpFileName, Len(TmpFileName) -
InStrRev(TmpFileName, "/",true, vbTextCompare))
GetFileName = TmpFileName
End Function |
Respone.Write GetFileName("c:inetpubwwwrootfilesblabla.asp") |
ergibt
blabla.asp
Statt einem phys. Pfad kann man auch eine URL der Func. übergeben
ggf. muss man es noch ein wenig anpassen.
