[Resolvido] nome ,diretório ,path, extensão

[xanburzum 169]

Estas rotinas podem retirar um nome de arquivo de um caminho, um diretório de um caminho, e uma extensão de um caminho. Eles também podem determinar o caminho do diretório pai. Eles são bastante simples que eu uso em varios lugares.

 

 

Function ParentDirectory(ByVal asDirectory)
        If Len(asDirectory) = 0 Then Exit Function
        asDirectory = Replace(asDirectory, "/", "\")
        If Right(asDirectory, 1) = "\" Then
            asDirectory = Left(asDirectory, Len(asDirectory) - 1)
        End If
        If asDirectory = "" Then Exit Function
        If InStr(1, asDirectory, "\") = 0 Then Exit Function
        asDirectory = Left(asDirectory, InStrRev(asDirectory, "\"))
        ParentDirectory = asDirectory
    End Function

    '     ---------------------------------------
    Function CurrentDirectory()
        CurrentDirectory = StripDirectory(Request.ServerVariables("PATH_TRANSLATED"))
    '    CurrentDirectory = Server.MapPath("/")
    '     
    End Function

    '     ---------------------------------------
    Function StripDirectory(ByVal asPath)
        If asPath = "" Then Exit Function
        asPath = Replace(asPath, "/", "\")
        If InStr(1, asPath, "\") = 0 Then Exit Function
        asPath = Left(asPath, InStrRev(asPath, "\"))
        StripDirectory = asPath
    End Function
    '---------------------------------------

    Function StripFileName(ByVal asPath)
        If asPath = "" Then Exit Function
        asPath = Replace(asPath, "/", "\")
        If InStr(asPath, "\") = 0 Then Exit Function
        If Right(asPath, 1) = "\" Then Exit Function
        
        StripFileName = Right(asPath, Len(asPath) - InStrRev(asPath, "\"))
    End Function
    '---------------------------------------

    Function StripFileExt(sFileName)
        If sFileName = "" Then Exit Function
        If InStr(1, sFileName, ".") = 0 Then Exit Function
        StripFileExt = Right(sFileName, Len(sFileName) - InStrRev(sFileName, ".") + 1)
    End Function

'---------------------------------------