怎么样去查看远程服务器的目录结构与服务器上所存在的文件

[homerocker]

[cpplus]

telnet

ftp

Remote Terminal

[希偌]

dim arry()
Function ShowFolderList(folderspec)
Dim fso, f, f1, fc, s
i=0
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFolder(folderspec)
Set fc = f.Files
count=fc.count
ReDim Preserve arry(count)
For Each f1 in fc
arry(i)= f1.name
i=i+1
Next
ShowFolderList = s
End Function
ShowFolderList("c:\")
response.write arry(1)

[homerocker]

还有子目录不可以显示

[zcflion]

是否有权限！！

[homerocker]

而且，我需要的是远程服务器上的，而不是本地的，假设我远程服务器已经登录

[ttt2]

server.mappath("/")

[lovek666]

<%@ Language=VBScript %>
<%
'一个遍历目录以及目录下文件的函数，
%>
<%
function bianli(path)
set fso=server.CreateObject("scripting.filesystemobject")

on error resume next
set objFolder=fso.GetFolder(path)

set objSubFolders=objFolder.Subfolders

for each objSubFolder in objSubFolders

nowpath=path + "\" + objSubFolder.name

Response.Write nowpath

set objFiles=objSubFolder.Files

for each objFile in objFiles
Response.Write "
---"
Response.Write objFile.name
next
Response.Write "<p>"
bianli(nowpath)''递归

next
set objFolder=nothing
set objSubFolders=nothing
set fso=nothing
end function
%>
<%
bianli("d:") '遍历d:盘
%>