Архив форумов ЦИТФорума

[Lex]

Есть переменная fname...
Открываю текстовый файл "New" (см. последние несколько строчек кода) - все окей!
Хочу открыть файл под именем fname - не открывает, говорит ошибка!
Вот код:

Dim strPathInfo, strPhysicalPath
strPathInfo = Request.ServerVariables("PATH_INFO")

strPhysicalPath = Server.MapPath(strPathInfo)
Dim objFSO, objFile, objFileSystem, objFolder, objFolderContents
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objFile = objFSO.GetFile(strPhysicalPath)
Set objFolder = objFile.ParentFolder
Set objFolderContents = objFolder.Files
Dim objFileTextStream
if fname="" then
set objFileItem = objFolderContents("new")
else
set objFileItem = objFolderContents(fname)
end if