请教，如何列出客户端指定目录的文件？

Question

楼主，建议你看看csdn的搜索页面代码，希望能解决你的问题

Answer 1

用FSO啊
<script>
var fso = new ActiveXObject("Scripting.FileSystemObject");
var vfolder=fso.getfolder(url)
然后我只会用VBSCRIPT写了,sorry,如果要用javascript可以帮你查查…………
for each item in vfolder.files
然后再写就不伦不类了…………我还是查查item在javascript里是什么吧

Answer 2

用FileSystemObject 
任务                    方法 
创建文件夹。            FileSystemObject.CreateFolder 
删除文件夹。            Folder.Delete 或 FileSystemObject.DeleteFolder 
移动文件夹。            Folder.Move 或 FileSystemObject.MoveFolder 
复制文件夹。            Folder.Copy 或 FileSystemObject.CopyFolder 
检索文件夹的名字。       Folder.Name 
如果文件夹在驱动器上存在，则找出它。 FileSystemObject.FolderExists 
获得现有 Folder 对象的实例。 FileSystemObject.GetFolder 
找出文件夹的父文件夹名。 FileSystemObject.GetParentFolderName 
找出系统文件夹的路径。 FileSystemObject.GetSpecialFolder 

Answer 3

<%
Function ShowFolderList(folderspec)
    Dim fso, f, f1, fc, s, k, l, sf, j
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(server.mappath(folderspec))
    Set fc = f.Files
    k = 0 
    For Each f1 in fc
        if GetFileExts(f1.name)="js"  or GetFileExts(f1.name)="txt" or GetFileExts(f1.name)="html" or GetFileExts(f1.name)="htm" then
        s = s & "<a href=" & folderspec & f1.name & "> " & f1.name & "</a>" 
        s = s & "<BR>"
        end if
    k = k+1 
    next
    l = 0
    Set sf = f.SubFolders
    for each m in sf
      j = j & "<a href=f.asp?cfo=" & folderspec & m.name & "> " & m.name & "</a>" 
      j = j & "<br>" 
    l = l+1
    Next
    response.write s & "--------<br>" & j & "共有" & k & "个文件,有" & l & "个文件夹"if instr(mid(folderspec,1,len(folderspec)-1),"/")>0 then
   returnF = mid(folderspec,1,InStrRev(mid(folderspec,1,len(folderspec)-1),"/",-1)-1)
   response.write "<br><a title='返回' href=f.asp?cfo=" & returnF & ">" & returnF & "</a>"
end ifresponse.write "<br><a target='_blank' href=file:///" & mid(server.mappath("f.asp"),1,len(server.mappath("f.asp"))-5) & ">" & "查看文件夹" & "</a>"
End Function
function GetFileExts(sFileName)
'得到文件扩展名并转化为小写
GetFileExts = Lcase (Mid (sFileName,InStrRev (sFileName, ".")+1))
end function
cfo=trim(request.querystring("cfo")) & "/"
if cfo="/" then
    fpa="gl/"
else
    fpa=cfo
end ifCall ShowFolderList(fpa)
%>

Answer 4

http://dev.csdn.net/develop/article/6/6688.shtm

Answer 5

你查FSO,呵呵,我可能想错了,如果你要服务端的要ASP用vbscript就是了,如果是看客户端的文件可不能用楼上的楼上的

Answer 6

Function showSub(path, indent)
  
  Dim fso, f, f1, fc
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.GetFolder(path)
  Set fc = f.SubFolders
  For Each f1 in fc
      showSub = showSub & vbcrlf
      showSub = showSub & showIndent(indent) & f1.name &_
                showSub(path & "\" & f1.name, indent+1)
  Next  Set fso = Nothing
  Set f = Nothing
  Set fc = NothingEnd FunctionFunction showIndent(indent)
  Dim i
  For i = 0 To indent-1
    showIndent = showIndent & "|--"
  Next
End FunctionMsgBox showSub("C:\Inetpub", 0)