服务器访问不了asp文件路径,ASP文件系统对象不能访问共享服务器路径吗？

option explicit

dim sRoot, sDir, sParent, objFSO, objFolder, objFile, objSubFolder, sSize

%>

sRoot = "D:Raghu"

sDir = Request("Dir")

sDir = sDir & "\"

Response.Write "

" & sDir & "

" & vbCRLF

Set objFSO = CreateObject("Scripting.FileSystemObject")

on error resume next

Set objFolder = objFSO.GetFolder(sRoot & sDir)

if err.number <> 0 then

Response.Write "Could not open folder"

Response.End

end if

on error goto 0

sParent = objFSO.GetParentFolderName(objFolder.Path)

' Remove the contents of sRoot from the front. This gives us the parent

' path relative to the root folder

' eg. if parent folder is "c:webfilessubfolder1subfolder2" then we just want "subfolder1subfolder2"

sParent = mid(sParent, len(sRoot) + 1)

Response.Write "

' Give a link to the parent folder. This is just a link to this page only pssing in

' the new folder as a parameter

Response.Write "

Parent folder" & vbCRLF

' Now we want to loop through the subfolders in this folder

For Each objSubFolder In objFolder.SubFolders

' And provide a link to them

Response.Write "

" & objSubFolder.Name & "" & vbCRLF

Next

' Now we want to loop through the files in this folder

For Each objFile In objFolder.Files

if Clng(objFile.Size) < 1024 then

sSize = objFile.Size & " bytes"

else

sSize = Clng(objFile.Size/1024) & " KB"

end if

' And provide a link to view them. This is a link to show.asp passing in the directory and the file

' as parameters

Response.Write "

" & objFile.Name & "" & sSize & "" & objFile.Type & "" & vbCRLF

Next

Response.Write "

"

%>

它工作正常。但是当我尝试访问像"\\cvrdd0110:share"这样的共享路径时，会出现错误。如何访问这些文件？抱歉格式问题。

2010-05-12

sushant