Классический ASP FSO Отказано в разрешении

Question

Я пытаюсь получить список файлов через Classic ASP FSO companent.

Но даже я дал права доступа к корневому файлу (IUSR_domain) с удаленного рабочего стола, но я все еще получаю эту ошибку.

Microsoft VBScript runtime error '800a0046'

Permission denied

/default2.asp, line 28

---

<%
fs,fo,x
set fs=Server.CreateObject("Scripting.FileSystemObject")
set fo=fs.GetFolder("C:\inetpub\vhosts\xx.com\httpdocs\photo\other") <-- line 28
for each x in fo.files
%>
<div id="photos">
<div class="photo"><%Response.write(x.Name & "<br>")%></div>
</div>

<%next
set fo=nothing
set fs=nothing
%>

Answer 1

Попробуйте использовать Server.MapPath

например:

    downloadFileDirectory = Server.MapPath("\httpdocs\photo\other")
          Set fs= CreateObject("Scripting.FileSystemObject")

            If fs.FolderExists(downloadFileDirectory) Then
              Set fo= fs.GetFolder(downloadFileDirectory)
                    for each x in fo.files
                    %>etc.

Answer 2

Установите IUSR_machinename и IWAM_machinename, чтобы иметь права на изменение папки.