• Home
 · 
• Internet/HTML
 · 
• Take a base path of your web page, along with the path of a file (image, background, etc.) and conv

Take a base path of your web page, along with the path of a file (image, background, etc.) and conv

Take a base path of your web page, along with the path of a file (image, background, etc.) and convert it to a relative path (like

Rate Take a base path of your web page, along with the path of a file (image, background, etc.) and conv

• 1
• 2
• 3
• 4
• 5

(1(1 Vote))

    ' TAKE APART BASEPATH...
    For i = Len(BasePath) To 1 Step -1
        If Mid(BasePath, i, 1) = "\" Then
            j = i
            Exit For
        End If
    Next i
    BaseDirectory = Left(BasePath, j)
    BaseFile = Right(BasePath, Len(BasePath) - 1)
    
    ' GET EACH DIRECTORY NAME AND STORE INTO AN ARRAY.
    ReDim BaseDir(CountChar(BasePath, "\") - 1) As String
    iCounter = 1
    For i = 1 To Len(BasePath)
        If iCounter = CountChar(BasePath, "\") Then Exit For
        If Mid(BasePath, i, 1) = "\" Then
            iFirstChar = i
            For j = (i + 1) To Len(BasePath)
                If Mid(BasePath, j, 1) = "\" Then
                    iLength = j - i
                    Exit For
                End If
            Next j
            BaseDir(iCounter) = Mid(BasePath, iFirstChar, iLength)
            iCounter = iCounter + 1
        End If
    Next i
        If InStr(SpecifiedPath, BaseDirectory) Then
            ' If SpecifiedPath is INSIDE BasePath, then just get the part
            ' of the SpecifiedPath MINUS the BaseDirectory...
            GetRelativePath = Right(SpecifiedPath, Len(SpecifiedPath) - Len(BaseDirectory))
            GetRelativePath = ReplaceString(GetRelativePath, "\", "/")
        Else
            For i = 1 To Len(BasePath)
                If Mid(BasePath, i, 1) <> Mid(SpecifiedPath, i, 1) Then
                    j = i
                    Exit For
                End If
            Next i
            PartialDirectory = Right(SpecifiedPath, Len(SpecifiedPath) - j + 1)
            For i = 1 To CountChar(BasePath, "\") - 1
                If Not InStr(SpecifiedPath, BaseDir(i)) Then
                    j = i
                    Exit For
                End If
            Next i
            PartialPath = StringOfCharacters("../", CountChar(BasePath, "\") - j - 1)
            GetRelativePath = PartialPath & PartialDirectory
        End If
End Function