asp读取文件夹下面的所有文件或文件夹<br /> &lt;% <br /> Whichfolder=server.mappath(&quot;&quot;) &amp;&quot;/&quot; <br /> Dim fs, f, f1, fc <br /> Set fs = server.CreateObject(&quot;Scripting.FileSystemObject&quot;) <br /> Set f = fs.GetFolder(Whichfolder) <br /> Set fc = f.files<br /> For Each f1 in fc <br /> Response.write (f1.name &amp; &quot;&lt;BR&gt;&quot;) <br /> Next <br /> %&gt;<br /> <br /> 实例二<br /> &lt;% <br /> Whichfolder=server.mappath(&quot;&quot;) &amp;&quot;/cgi-bin/&quot; <br /> Dim fs, f, f1, fc <br /> Set fs = server.CreateObject(&quot;Scripting.FileSystemObject&quot;) <br /> Set f = fs.GetFolder(Whichfolder) <br /> Set fc = f.files<br /> <br /> For Each f1 in fc <br /> Response.write (f1.name &amp; &quot;&lt;BR&gt;&quot;) <br /> Next <br /> %&gt;<br />