Aqui un ejemplo (olvida las funciones de convert to real)
' Deteccion de la ruta
Const rootFolder = "/"
Dim dir
argPath=server.Mappath(rootFolder)
Set dir = FSO.GetFolder(argPath)
Session("dirName") = dir.Name
Session("dirPath") = dir.Path
If (dir.IsRootFolder) Then
Session("dirParentFolder") = ""
Else
Session("dirParentFolder") = dir.ParentFolder
End If
Ruta = ConvertToVirtual ( Session ("dirPath"))
NombreCarpeta = Codigo
' Graba un nuevo directorio con el nombre solicitado
Dim safeName
safeName = replace(NombreCarpeta,"..","")
safeName = replace(safeName,"/","")
safeName = replace(safeName,"\","")
str = FixPath( ConvertToReal ( Ruta ) ,"\" ) & safeName
strOrigen = FixPath( ConvertToReal ( Ruta ) ,"\" )
CreateItem Tipo, str
If (FSO.FolderExists(str) ) Then argPath = str Else argPath = ConvertToReal ( Ruta)
end if