FSO如何遍历某一文件夹下的文件？

你改下function getfiles(){
         var fn = "";
         var fso = new ActiveXObject("Scripting.FileSystemObject");
         try{
          var o = new Enumerator(fso.getFolder("F:/readSoft/香蕉").files);
          for(; !o.atEnd(); o.moveNext()){
            if(o.item().name.indexOf('.txt') > -1){
                fn += '<td><iframe src="' + o.item() + '" height=680 title=' + o.item().name + ' onmouseover="document.title=\'' + o.item().name + '\'"></iframe></td>';
            }
          }
         }catch(e){alert(e);}
         document.body.innerHTML ='<table><tr>' + fn + '</tr></table>';
}

解决方案 »

免费领取超大流量手机卡，每月29元包185G流量+100分钟通话, 中国电信官方发货

<HTML><BODY>
<p style="font-weight:bold;border-bottom:3px double #000099">本站所有文档目录：</p>
<%Dim fso
Dim TabStop
Dim NewLine
NewLine =""
TabStop = ""
Set fso = Server.CreateObject("Scripting.FileSystemObject")Dim strRootDoc'strRootDoc =  Request.ServerVariables("PATH_TRANSLATED")
'strRootDoc = Left(strRootDoc,InStr(1,strRootDoc,"portal",1)-1) & "Documents\"Dim html
html=""
getFolderList fso.GetFolder(Server.MapPath(".")),html,0Response.Write html
'给出一个文件夹，列出其下的所有文件夹
Function getFolderList(oFolder,html,n)
Dim a
Dim tmp
tmp=""
Dim i
Dim strRootPath
For i = 1 To n
tmp=tmp & "  "
Next
html = html & "<div id=""mxh" & n & """>"
For Each a In oFolder.SubFolders
html = html & "<div>" & tmp & "<img src=""DocTypeIcons/folder16.gif"" align=absmiddle> <a href='Javascript:void(null)'>" & a.Name & " : " & a.Size & "</a></div>" & chr(13) If a.SubFolders.Count>0 Then
getFolderList a,html,n+1
End If
Next
html = html & "</div>"
End Function%>
</BODY>
</HTML>
遍历目录下的所有文件和属性
<table border>
<tr>
<td>Name 属性</td>
<td>DateCreated 属性</td>
<td>DateLastAccessed 属性</td>
<td>DateLastModified 属性</td>
<td>Drive 属性</td>
<td>Attributes 属性</td>
<td>ParentFolder 属性</td>
<td>Path 属性</td>
<td>ShortName 属性</td>
<td>ShortPath 属性</td>
<td>Size 属性</td>
<td>Type 属性</td>
</tr>
<%
Function ShowFolderList(folderspec)
    Dim fso, f, f1, fc, s,tmp
    Set fso = CreateObject("Scripting.FileSystemObject")
    Set f = fso.GetFolder(folderspec)
    Set fc = f.Files
    For Each f1 in fc
     tmp = " "
     Select Case f1.Attributes
     Case 0
     tmp = "Normal:普通文件"
     Case 1
     tmp = "ReadOnly:只读文件"
     Case 2
     tmp = "Hidden:隐藏文件"
     Case 4
     tmp = "System:系统文件"
     Case 16
     tmp = "Directory:文件夹或目录"
     Case 32
     tmp = "Archive:上次备份后已更改的文件"
     Case 1024
     tmp = "Alias:链接或快捷方式"
     Case 2048
     tmp = "Compressed:压缩文件"
     End Select
    s = s & "<tr>"
    s = s & "<td>" & f1.Name & "</td>"
    s = s & "<td>" & f1.DateCreated & "</td>"
    s = s & "<td>" & f1.DateLastAccessed & "</td>"
    s = s & "<td>" & f1.DateLastModified & "</td>"
    s = s & "<td>" & f1.Drive & "</td>"
    s = s & "<td>" & tmp & "</td>"
    s = s & "<td>" & f1.ParentFolder & "</td>"
    s = s & "<td>" & f1.Path & "</td>"
    s = s & "<td>" & f1.ShortName &"</td>"
    s = s & "<td>" & f1.ShortPath & "</td>"
    s = s & "<td>" & f1.Size & "</td>"
    s = s & "<td>" & f1.Type & "<td>"
    s = s & "</tr>"
    Next
    ShowFolderList = s
End Function
Response.write ShowFolderList(Server.MapPath("."))
%>
</table>
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="936"%>
<%
if(Request.ServerVariables("QUERY_STRING")=="") {


disPath="/lps/lpo/ss/T1/workfile";//可以修改为你想要显示的文件夹
objFSO=Server.CreateObject('Scripting.FileSystemObject');
objFolder = objFSO.GetFolder(Server.MapPath(disPath));
objFolder = objFSO.GetFolder(objFolder);
if(objFSO.GetBaseName(disPath)=="") describe_name="Root Directory";
else describe_name=objFSO.GetBaseName(disPath)
%>
<HTML>
<HEAD>
<TITLE><%= describe_name %></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2668" name=GENERATOR>
<style type="text/css">

</style>
</HEAD>
<BODY style="FONT-SIZE: 9pt; LINE-HEIGHT: 20px" bgColor=#d7d7d7 leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE id=Table1 height=8 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD><IMG height=20 src="http://cis2/lps/lpo/ss/T1/img/f_t_1.gif" width=750></TD></TR></TBODY></TABLE><TABLE id=Table2 height=60 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=center align=middle width=750 height=60><STRONG><FONT
      color=#ff6600 size=6><%= describe_name %></FONT></STRONG></TD></TR></TBODY></TABLE><TABLE id=Table3 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=1 background=http://cis2/lps/lpo/ss/T1/img/line.htm><IMG height=8
      width=1></TD>
    <TD vAlign=top bgColor=#e7e7e7>
      <TABLE id=Table4 style="FONT-SIZE: 10pt" cellSpacing=0 cellPadding=0 width=750 align=center border=0>
        <TBODY>
        <TR>
          <TD><IMG height=20 src="http://cis2/lps/lpo/ss/T1/img/f_t_1.gif" width=671></TD>
          <TD><A href="javascript:history.go(-1)"><IMG height=20
            src="http://cis2/lps/lpo/ss/T1/img/f_t_2.gif" width=79 border=0></A></TD></TR>
<%

  var enmFolders = new Enumerator(objFolder.SubFolders);
  for (; !enmFolders.atEnd(); enmFolders.moveNext()) {
  objSubFolder = enmFolders.item();
  Response.Write("<TR><TD colSpan=2 height=27><IMG height=22 src='http://cis2/lps/lpo/ss/T1/img/dir.gif' width=25 align=absMiddle>");
  Response.Write("<A href=dirx_pt.asp?strFolder=" +disPath+"/"+ objSubFolder.Name + ">"+objSubFolder.Name+"</a><br>");
  Response.Write("</TD></TR><TR background='http://cis2/lps/lpo/ss/T1/img/line1.gif'> <TD background=http://cis2/lps/lpo/ss/T1/img/line2.gif colSpan=2><IMG height=2 src='http://cis2/lps/lpo/ss/T1/img/line2.gif' width=6></TD></TR>");} if (objFolder.Files.Count > 0) {
   var enmFiles = new Enumerator(objFolder.Files);
    for (; !enmFiles.atEnd(); enmFiles.moveNext()) {
    objFile = enmFiles.item();
Response.Write("<TR><TD colSpan=2 height=27><IMG height=22 src='http://cis2/lps/lpo/ss/T1/img/authorico.gif' width=25 align=absMiddle>");
    Response.Write("<a href='"+disPath+'/'+ objFile.Name + "'>"+objFile.Name+"</a><br>");
Response.Write("</TD></TR><TR background='http://cis2/lps/lpo/ss/T1/img/line1.gif'> <TD background=http://cis2/lps/lpo/ss/T1/img/line2.gif colSpan=2><IMG height=2 src='http://cis2/lps/lpo/ss/T1/img/line2.gif' width=6></TD></TR>");
        }
}
%>
<TD background=http://cis2/lps/lpo/ss/T1/img/line2.gif colSpan=2><IMG height=2
            src="http://cis2/lps/lpo/ss/T1/img/line2.gif" width=6></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE id=Table5 height=75 cellSpacing=0 cellPadding=0 width=750 align=center
border=0>
  <TBODY>
  <TR>
    <TD vAlign=top height=70><IMG height=20 src="http://cis2/lps/lpo/ss/T1/img/f_t_1.gif"
      width=750></TD></TR></TBODY></TABLE></BODY></HTML>
<% } else {   disPath=Request.QueryString("strFolder");
objFSO=Server.CreateObject('Scripting.FileSystemObject');
objFolder = objFSO.GetFolder(Server.MapPath(disPath));
objFolder = objFSO.GetFolder(objFolder);
%>
<HTML>
<HEAD>
<TITLE><%= objFSO.GetBaseName(disPath) %></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META content="MSHTML 6.00.2900.2668" name=GENERATOR>
<style type="text/css">

</style>
</HEAD>
<BODY style="FONT-SIZE: 9pt; LINE-HEIGHT: 20px" bgColor=#d7d7d7 leftMargin=0 topMargin=0 marginwidth="0" marginheight="0">
<TABLE id=Table1 height=8 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD><IMG height=20 src="http://cis2/lps/lpo/ss/T1/img/f_t_1.gif" width=750></TD></TR></TBODY></TABLE><TABLE id=Table2 height=60 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=center align=middle width=750 height=60><STRONG><FONT
      color=#ff6600 size=6><%= objFSO.GetBaseName(disPath) %></FONT></STRONG></TD></TR></TBODY></TABLE><TABLE id=Table3 cellSpacing=0 cellPadding=0 width=750 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=1 background=http://cis2/lps/lpo/ss/T1/img/line.htm><IMG height=8
      width=1></TD>
    <TD vAlign=top bgColor=#e7e7e7>
      <TABLE id=Table4 style="FONT-SIZE: 10pt" cellSpacing=0 cellPadding=0 width=750 align=center border=0>
        <TBODY>
        <TR>
          <TD><IMG height=20 src="http://cis2/lps/lpo/ss/T1/img/f_t_1.gif" width=671></TD>
          <TD><A href="javascript:history.go(-1)"><IMG height=20
            src="http://cis2/lps/lpo/ss/T1/img/f_t_2.gif" width=79 border=0></A></TD></TR>
<%
  var enmFolders = new Enumerator(objFolder.SubFolders);
  for (; !enmFolders.atEnd(); enmFolders.moveNext()) {
  objSubFolder = enmFolders.item();
  Response.Write("<TR><TD colSpan=2 height=27><IMG height=22 src='http://cis2/lps/lpo/ss/T1/img/dir.gif' width=25 align=absMiddle>");
  Response.Write("<A href=dirx_pt.asp?strFolder="+ disPath+"/"+  objSubFolder.Name + ">"+objSubFolder.Name+"</a><br>");
  Response.Write("</TD></TR><TR background='http://cis2/lps/lpo/ss/T1/img/line1.gif'> <TD background=http://cis2/lps/lpo/ss/T1/img/line2.gif colSpan=2><IMG height=2 src='http://cis2/lps/lpo/ss/T1/img/line2.gif' width=6></TD></TR>");
}
  if (objFolder.Files.Count > 0) {
  var enmFiles = new Enumerator(objFolder.Files);
  for (; !enmFiles.atEnd(); enmFiles.moveNext()) {
  objFile = enmFiles.item();
  Response.Write("<TR><TD colSpan=2 height=27><IMG height=22 src='http://cis2/lps/lpo/ss/T1/img/authorico.gif' width=25 align=absMiddle>");
  Response.Write("<a href='"+disPath+'/'+ objFile.Name + "'>"+objFile.Name+"</a><br>");
   Response.Write("</TD></TR><TR background='http://cis2/lps/lpo/ss/T1/img/line1.gif'> <TD background=http://cis2/lps/lpo/ss/T1/img/line2.gif colSpan=2><IMG height=2 src='http://cis2/lps/lpo/ss/T1/img/line2.gif' width=6></TD></TR>");
} } %>
<TD background=http://cis2/lps/lpo/ss/T1/img/line2.gif colSpan=2><IMG height=2
            src="http://cis2/lps/lpo/ss/T1/img/line2.gif" width=6></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
<TABLE id=Table5 height=75 cellSpacing=0 cellPadding=0 width=750 align=center
border=0>
  <TBODY>
  <TR>
    <TD vAlign=top height=70><IMG height=20 src="http://cis2/lps/lpo/ss/T1/img/f_t_1.gif"
      width=750></TD></TR></TBODY></TABLE></BODY></HTML>
<%  } %>