5,139
社区成员
发帖
与我相关
我的任务
分享如何通过vba获取一个目录下的所有文件夹名称、大小、文件夹中所有文档数量？
如何通过vba获取一个目录下的所有文件夹名称、大小、文件夹中所有文档数量？
例如：
vb-vba1
-1.txt
-2.txt
-vba2
-3.txt
-vba3
需要的结果是:
文件夹名称 文件夹大小 文件夹文档数量
vba1 2
vba2 1
vba3 0
例如：
vb-vba1
-1.txt
-2.txt
-vba2
-3.txt
-vba3
需要的结果是:
文件夹名称 文件夹大小 文件夹文档数量
vba1 2
vba2 1
vba3 0
...全文
请发表友善的回复…
发表回复
qidizi 2007-04-26
- 打赏
- 举报
<hta>
<head>
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="0">
<title>命名程序</title>
</head>
<body scroll="auto" style="border:none; color:green;" bgcolor=black topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0 >
<textarea id=show rows=10 style="width:100%;"></textarea>
<textarea id=dofile rows=20 style="width:100%;" title=请在这输入处理文件的方法>function (path){
请在这输入处理文件的方法,其它不变。
}</textarea>
源文件夹<input id="sourcefolder" type=file><br><input type=button value=获取全部文件夹 onclick="getallfolder(sourcefolder.value)">
<input type=button value=处理所有文件 onclick="doallfile()">
<input type=button value=清除 onclick="showtxt('已清除所有定时'); clearTimeout(fsotime)">
<SCRIPT language="javascript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
var runtime = 1;
var foldersarray;
var fsotime;
var nowi;
var fp;
var theno;
var mydofile;
function showtxt(txt)
{
show.focus();
show.value += txt + "\n";
}
function reportError(msg,url,line)
{
alert("当前页的脚本发生错误: \n\n信息: " + msg + "\n\n行：" + line);
return true;
}
window.onerror = reportError;
function getallfolder(path)
{
if ( fso.folderExists(path) == false)
{
showtxt("出错啦！\n[" + path + "] 文件夹不存在!");
return false;
}
if(fso.DriveExists(path))
{
path += "\\";
}
mygetfolder(path);
}
function mygetfolder(path){//自己递归时没参数
if(path != undefined)
{
clearTimeout(fsotime);
fp = null;
nowi = -1;
theno = 1;
foldersarray = new Array(fso.getFolder(path).path);
showtxt("开始获取文件夹...\n" + (theno++) + ": " + fso.getFolder(path).path);
}
try
{
if(fp == null)
{
fp = new Enumerator(fso.getFolder(foldersarray[++nowi]).subFolders);
}
}catch(e)
{
showtxt("取数组出错，原因是数组下标超出数组长度\n处理完成");
theno = fp = nowi = null;
return clearTimeout(fsotime);
}
if(!fp.atEnd())
{
showtxt( (theno++) + ": " + (foldersarray[foldersarray.length] = fp.item().path) );
fp.moveNext();
}
else
{
fp = null;
}
fsotime = setTimeout("mygetfolder()",runtime);
}
function doallfile(start){
try
{
foldersarray.length < 1;
}catch(e)
{
return alert("请先点[获取全部文件夹]获取要处理的文件夹对象");
}
if(start == undefined)
{
nowi = 0;
fp = null;
theno = 1;
try
{
eval("mydofile = " + dofile.value);
}catch(e)
{
alert("自定义方法出错，请重新编写！详细错误请瞧信息框");
showtxt(e.description);
}
}
if(fp == null)
{
try
{
fp = new Enumerator(fso.getfolder(foldersarray[nowi++]).files);
}catch(e)
{
showtxt("处理文件完成");
theno = fp = nowi = null;
return clearTimeout(fsotime);
}
}
if(!fp.atEnd())
{
showtxt( (theno++) + ": " + fp.item().path );
try
{
mydofile( fp.item().path );
}catch(E)
{
showtxt("执行自定义处理文件方法时出错：" + E.description);
}
fp.moveNext();
}
else
{
fp = null;
}
fsotime = setTimeout("doallfile(1)",runtime);
}
//-->
</SCRIPT>
</BODY>
</hta>
这个是我用JS写的,可以读所有的文件夹的文件 有一个接口给如何处理拿到的文件
<head>
<META HTTP-EQUIV="pragma" CONTENT="no-cache">
<META HTTP-EQUIV="Cache-Control" CONTENT="no-cache, must-revalidate">
<META HTTP-EQUIV="expires" CONTENT="0">
<title>命名程序</title>
</head>
<body scroll="auto" style="border:none; color:green;" bgcolor=black topmargin=0 leftmargin=0 rightmargin=0 bottommargin=0 >
<textarea id=show rows=10 style="width:100%;"></textarea>
<textarea id=dofile rows=20 style="width:100%;" title=请在这输入处理文件的方法>function (path){
请在这输入处理文件的方法,其它不变。
}</textarea>
源文件夹<input id="sourcefolder" type=file><br><input type=button value=获取全部文件夹 onclick="getallfolder(sourcefolder.value)">
<input type=button value=处理所有文件 onclick="doallfile()">
<input type=button value=清除 onclick="showtxt('已清除所有定时'); clearTimeout(fsotime)">
<SCRIPT language="javascript">
<!--
var fso = new ActiveXObject("Scripting.FileSystemObject");
var runtime = 1;
var foldersarray;
var fsotime;
var nowi;
var fp;
var theno;
var mydofile;
function showtxt(txt)
{
show.focus();
show.value += txt + "\n";
}
function reportError(msg,url,line)
{
alert("当前页的脚本发生错误: \n\n信息: " + msg + "\n\n行：" + line);
return true;
}
window.onerror = reportError;
function getallfolder(path)
{
if ( fso.folderExists(path) == false)
{
showtxt("出错啦！\n[" + path + "] 文件夹不存在!");
return false;
}
if(fso.DriveExists(path))
{
path += "\\";
}
mygetfolder(path);
}
function mygetfolder(path){//自己递归时没参数
if(path != undefined)
{
clearTimeout(fsotime);
fp = null;
nowi = -1;
theno = 1;
foldersarray = new Array(fso.getFolder(path).path);
showtxt("开始获取文件夹...\n" + (theno++) + ": " + fso.getFolder(path).path);
}
try
{
if(fp == null)
{
fp = new Enumerator(fso.getFolder(foldersarray[++nowi]).subFolders);
}
}catch(e)
{
showtxt("取数组出错，原因是数组下标超出数组长度\n处理完成");
theno = fp = nowi = null;
return clearTimeout(fsotime);
}
if(!fp.atEnd())
{
showtxt( (theno++) + ": " + (foldersarray[foldersarray.length] = fp.item().path) );
fp.moveNext();
}
else
{
fp = null;
}
fsotime = setTimeout("mygetfolder()",runtime);
}
function doallfile(start){
try
{
foldersarray.length < 1;
}catch(e)
{
return alert("请先点[获取全部文件夹]获取要处理的文件夹对象");
}
if(start == undefined)
{
nowi = 0;
fp = null;
theno = 1;
try
{
eval("mydofile = " + dofile.value);
}catch(e)
{
alert("自定义方法出错，请重新编写！详细错误请瞧信息框");
showtxt(e.description);
}
}
if(fp == null)
{
try
{
fp = new Enumerator(fso.getfolder(foldersarray[nowi++]).files);
}catch(e)
{
showtxt("处理文件完成");
theno = fp = nowi = null;
return clearTimeout(fsotime);
}
}
if(!fp.atEnd())
{
showtxt( (theno++) + ": " + fp.item().path );
try
{
mydofile( fp.item().path );
}catch(E)
{
showtxt("执行自定义处理文件方法时出错：" + E.description);
}
fp.moveNext();
}
else
{
fp = null;
}
fsotime = setTimeout("doallfile(1)",runtime);
}
//-->
</SCRIPT>
</BODY>
</hta>
这个是我用JS写的,可以读所有的文件夹的文件 有一个接口给如何处理拿到的文件
wxshzf 2007-04-09
- 打赏
- 举报
先顶后接分
