This is not an html plugin, it is a VB/VBA function that has no preview, to see it working, you need to add it to your VBA project
If you don't have an idea of what is it, then this is not for you
' Converts SharePoint url or url to SharePoint path
' Most of the time it is easier to access a SharePoint folder using Windows explorer, that is when these come in handy
' You can access that folder (as intranet folder) or as SharePoint site
' Used when you have access to that SharePoint location with read/write
' You need to set the StartHere url, which is the top-level folder of the SharePoint folder in function Path2SharePoint
Function SharePointURL2Path(URL2) ' Converts SharePoint url into regular folder (remote on intranet)
' Basically replacing %2f to \, %20 to space and %2d to -
SharePointURL2Path = "N/A"
StartHere = "?RootFolder="
remm = InStr(1, URL2, "//")
If remm > 0 Then
remmo = InStr(remm + 2, URL2, "/")
domain = Mid(URL2, remm + 2, remmo - remm - 2)
folll = InStr(1, URL2, StartHere, vbTextCompare)
NewURL = Mid(URL2, folll + Len(StartHere))
SharePointURL2Path = "\\" & domain & Replace(NewURL, "%2f", "\", , , vbTextCompare)
SharePointURL2Path = Replace(SharePointURL2Path, "%20", " ", , , vbTextCompare)
SharePointURL2Path = Replace(SharePointURL2Path, "%2d", "-", , , vbTextCompare)
Function Path2SharePointURL(Path2) ' convert remote folder path (intranet) into regular sharepoint url (intranet to remote)
' Basically replacing \ to %2f (or /), space to %20 and - to %2d
Path2SharePointURL = "Not yet ready"
StartHere = "http://subdomain.domain.com/sites/hello/default.aspx?RootFolder="
If Left(Path2, 2) = "\\" Then
sta = InStr(3, Path2, "\")
Path2SharePointURL = StartHere & Mid(Path2, sta)
Path2SharePointURL = Replace(Path2SharePointURL, "\", "%2f", , , vbTextCompare)
Path2SharePointURL = Replace(Path2SharePointURL, " ", "%20", , , vbTextCompare)
Path2SharePointURL = Replace(Path2SharePointURL, "-", "%2d", , , vbTextCompare)