如何将相对路径改为绝对路径(把相对路径变成绝对路径)

'================================================' 函数名：ChkMapPath '作用：相对路径转换为绝对路径' 参数：strPath -原路径' 返回值：绝对路径======================================Function ChkMapPath(ByVal strPath)Dim完整路径strPath=Replace(Replace(Trim(strPath)，'/''')，' \ '' ')If strPath='' Then strPath=''如果InStr(strPath，'')=0，则完整路径=服务器.MapPath(strPath)Else strPath=Replace(strPath，'' ')完整路径=Trim(strPath)If Right(完整路径，1)=' '然后fullPath=Left(fullPath，Len(full path)-1)End If End If ChkMapPath=完整路径结束函数