Pfad entfernen

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

Schreibe einen Kommentar

Deine E-Mail-Adresse wird nicht veröffentlicht. Erforderliche Felder sind mit * markiert.