于 2010-09-07 09:32:57 发布 · 1.7k 阅读

文章标签：

本文介绍了一个使用VBScript编写的简单脚本，该脚本能递归地遍历指定文件夹及其子文件夹中的所有文件，并将文件路径显示在网页上。此示例适用于需要快速开发文件管理系统或进行文件路径收集的应用场景。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script>
var filesList = new Array();
var filesIndex = 0;
var fso = new ActiveXObject("Scripting.FileSystemObject");
function searchFilesList(filePath){
    var f = fso.GetFolder(filePath);
    // 遍历目录
    var fk = new Enumerator(f.SubFolders);
    for (; !fk.atEnd(); fk.moveNext()) {
        filesList[filesIndex++] = fk.item();
        searchFilesList(fk.item());
    }
    // 遍历目录文件
    var fc = new Enumerator(f.files);
    for (; !fc.atEnd(); fc.moveNext()) {
        filesList[filesIndex++] = fc.item();
    }
}
function searchFiles(){
    searchFilesList(fixfolder.value);
    // 循环信息信息
    for (var i=0; i<filesList.length; i++){
        textarea.innerHTML += filesList[i]+"<br>";
    }
}
</script>
</head>
<body bgcolor="#FFFFFF">
指定文件夹：<input type="text" name="fixfolder" value ="E:\Test">
<input type="button" value ="搜索" onclick="searchFiles()">
<table >
<tr>
<td id = "textarea">

</td>
</tr>
</table>

</body>
</html>