<%
Option Explicit
Dim objFileSys
Dim ThePath1
Dim ThePath2
set objFileSys = Server.CreateObject("Scripting.FileSystemObject")
ThePath1 = "c:\Program Files"
ThePath2 = "c:\Program Files\"
Response.Write objFileSys.BuildPath(ThePath1, "Office") & "<P>"
Response.Write objFileSys.BuildPath(ThePath1, "\Office") & "<P>"
Response.Write objFileSys.BuildPath(ThePath2, "Office") & "<P>"
Response.Write objFileSys.BuildPath(ThePath2, "\Office") & "<P>"
%>
