FSO udskrive den fulde sti

Hvordan får jeg dette script til at udskrive den fulde sti ud fra strRootFolder
altså
/dir/dir2/dir3/
istedet for bare
/dir3/

<%       
sub displayFolders(objFolder, _
                  bolRecurseDirectories, _
                  level)
                 
If Not Left(objFolder.Name,1) = "_" then
  'Recurse through the folder's subdirectories if needed
  If bolRecurseDirectories then
    For Each objSubFolder in objFolder.SubFolders
      for i = 0 to level
        Response.Write "&nbsp;&nbsp;"
      next
      Response.Write objFolder.Name &"/"& objSubFolder.Name & "<br>"
     
      displayFolders objSubFolder, bolRecurseDirectories, level+1
    Next
  End If
End If
end sub

'Get the physical path of the root folder
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")

strRootFolder = Server.MapPath("./")

Set objFolder = objFSO.GetFolder(strRootFolder)

displayFolders objFolder, true, 0

%>