Function GetRealName(strFile)
Set objFSO = CreateObject("Scripting.FileSystemObject")
GetRealName = objFSO.GetAbsolutePathName(strFile)
Set objFSO = Nothing
End Function

Response.Write GetRealName("e:\ensökväg\tjoho\") & "
"
Response.Write GetRealName("e:\ensökväg\tjoho\blapp.txt") & "
"