' 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.