列出一个目录所有文件代码,ASP代码库,德仔网

代码语言
代码分类
【ASP】列出一个目录所有文件
作者:Dezai.CN / 发布于2011/4/26/ 1322
<div>
<pre style="line-height: 150%; font-family: Verdana, Monospace; font-size: 12px; font-weight: bold; margin-right: 10px"><span style="color: rgb(0,0,0); font-weight: bold"><%
<span style="color: rgb(0,0,255)">function</span> getListOfFiles<span style="color: rgb(0,102,0); font-weight: bold">(</span>path<span style="color: rgb(0,102,0); font-weight: bold">)</span>
        <span style="color: rgb(0,153,204)">dim</span> fs, folder, list<span style="color: rgb(0,102,0); font-weight: bold">(</span><span style="color: rgb(0,102,0); font-weight: bold">)</span>, ub
        <span style="color: rgb(0,153,204)">set</span> fs <span style="color: rgb(0,102,0); font-weight: bold">=</span> <span style="color: blue">CreateObject</span><span style="color: rgb(0,102,0); font-weight: bold">(</span><span style="color: rgb(204,0,0)">"Scripting.FileSystemObject"</span><span style="color: rgb(0,102,0); font-weight: bold">)</span>
        <span style="color: rgb(0,153,204)">set</span> folder <span style="color: rgb(0,102,0); font-weight: bold">=</span> fs.<span style="color: rgb(153,0,204)">GetFolder</span><span style="color: rgb(0,102,0); font-weight: bold">(</span>path<span style="color: rgb(0,102,0); font-weight: bold">)</span>
        ub <span style="color: rgb(0,102,0); font-weight: bold">=</span> -<span style="color: rgb(128,0,0)">1</span>
        <span style="color: rgb(0,153,204)">for</span> <span style="color: rgb(0,153,204)">each</span> <span style="color: rgb(0,153,204)">file</span> <span style="color: rgb(0,153,204)">in</span> folder.<span style="color: rgb(153,0,204)">Files</span>
                ub <span style="color: rgb(0,102,0); font-weight: bold">=</span> ub+<span style="color: rgb(128,0,0)">1</span>
                <span style="color: rgb(0,153,204)">redim</span> <span style="color: rgb(0,153,204)">preserve</span> list<span style="color: rgb(0,102,0); font-weight: bold">(</span>ub<span style="color: rgb(0,102,0); font-weight: bold">)</span>
                list<span style="color: rgb(0,102,0); font-weight: bold">(</span>ub<span style="color: rgb(0,102,0); font-weight: bold">)</span> <span style="color: rgb(0,102,0); font-weight: bold">=</span> <span style="color: rgb(0,153,204)">file</span>.<span style="color: rgb(153,0,204)">Name</span>
        <span style="color: rgb(0,153,204)">next</span>
        getListOfFiles <span style="color: rgb(0,102,0); font-weight: bold">=</span> list
<span style="color: rgb(0,153,204)">end</span> <span style="color: rgb(0,0,255)">function</span>
 
<span style="color: rgb(0,153,204)">dim</span> files <span style="color: rgb(0,102,0); font-weight: bold">:</span> files <span style="color: rgb(0,102,0); font-weight: bold">=</span> getListOfFiles<span style="color: rgb(0,102,0); font-weight: bold">(</span><span style="color: rgb(0,153,204)">server</span>.<span style="color: blue">MapPath</span><span style="color: rgb(0,102,0); font-weight: bold">(</span><span style="color: rgb(204,0,0)">"/images"</span><span style="color: rgb(0,102,0); font-weight: bold">)</span><span style="color: rgb(0,102,0); font-weight: bold">)</span>
<span style="color: rgb(0,153,204)">for</span> <span style="color: rgb(0,153,204)">each</span> name <span style="color: rgb(0,153,204)">in</span> files
        <span style="color: rgb(0,153,204)">response</span>.<span style="color: blue">Write</span><span style="color: rgb(0,102,0); font-weight: bold">(</span>name<span style="color: rgb(0,102,0); font-weight: bold">&</span><span style="color: rgb(204,0,0)">""</span><span style="color: rgb(0,102,0); font-weight: bold">)</span>
<span style="color: rgb(0,153,204)">next</span>
<span style="color: rgb(0,0,0); font-weight: bold">%></span></pre>
</div>
试试其它关键字
　列出一个目录所有文件　
同语言下
可能有用的
Dezai.CN贡献的其它代码(4037)