'此过程可以列出指定目录文件夹中的所有子文件夹。
'参数folderspec为文件夹路径。
Sub ShowFolderList(folderspec)
Dim fs, f, f1, s, sf
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(folderspec)
Set sf = f.SubFolders
For Each f1 in sf
s=s&f1.name
s=s&Chr(13)
Next
MsgBox s
End Sub

[此贴子已经被作者于2006-3-22 22:06:24编辑过]

我将YMS123大哥给出的代码添加在一个ASP代码块里面加入到页面中,然后在代码块最后部分加了一句response.write ("[<a href='browser.asp?path=" & ShowFileAccessInfo & "'>上一级123</a>]")
以为这样旧能运行了,结果提示:ShowFileAccessInfo参数错误

看来是我太天真了


请问YMS大哥要引用SHOW的2个函数,我该怎么做???

Function ShowFileAccessInfo(filespec)
Dim fso, f, s
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.GetFile(filespec)
ShowFileAccessInfo=f.ParentFolder
End Function
filespec是文件路径比如
ShowFileAccessInfo(Server.MapPath("/text/"))这个是返回/text/目录的上一级目录，你那个没有加参数当然参数错误了。

response.write ("[<a href='browser.asp?path=" & ShowFileAccessInfo([这里得加目录参数]) & "'>上一级123</a>]")