如何用VB script 做一个函数，输入一个目录的路径，然后返回该目录下所有文件的名称？
诸位老大：
小弟在做ASP的时候需要读取一个目录下的文件，可是找花了眼睛也没找出来，在这里烦请虾客们看在党国的份上，伸出手来，拉兄弟一把吧～～～
请注意，我这里是要在ASP里用的啊，，，
问题点数：20、回复次数：4Top
1 楼griefforyou（为你伤心）回复于 2002-07-16 16:03:53 得分 20
<Script language="JScript">
<!--
////////////////////////////////////////////////////////////
//获取当前目录名
var fso ,f ,Index ,Flag ,TransEffect,Count; //文件系统对象,文件对象
var Running,Paused,TimeoutID;
var ImageArr = new Array(); //数组对象
var ScriptName;
Count=-1;
fso = new ActiveXObject("Scripting.FileSystemObject");
//ScriptName=window.location.href;
//ScriptName=ScriptName.replace(/%20/," ");
//f = fso.GetFolder(GetFilePath(ScriptName.substring(8)));
f = fso.GetFolder("C:\\My Documents");
GetFolderList(f);
Index=0;
TransEffect=-1;
Running=0;
Paused=0;
///////////////////////////////////////////////////////////
function GetFilePath(FileNameWithPath)
{
var pos;
pos=FileNameWithPath.lastIndexOf("/");
if(pos==-1) FileNameWithPath.lastIndexOf("\\");
return FileNameWithPath.substring(0,pos);
}
///////////////////////////////////////////////////////////
//获取目录中所有文件
function GetFolderFileList(folderspec)
{
var fso, f, f1, fc ,ext ,filename;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(folderspec);
fc = new Enumerator(f.files);
for (;!fc.atEnd();fc.moveNext())
{
filename="" + fc.item();
ext=filename.substring(filename.length-4)
ext=ext.toUpperCase()
if(ext==".JPG"||ext==".GIF"||ext==".PNG")
{
Count++;
ImageArr[Count]=filename;
}
}
}
///////////////////////////////////////////////////////////
///////////////////////////////////////////////////////////
//获取目录中所有子目录
function GetFolderList(folderspec)
{
var fso, f, fc, s;
fso = new ActiveXObject("Scripting.FileSystemObject");
f = fso.GetFolder(folderspec);
GetFolderFileList(folderspec);
fc = new Enumerator(f.SubFolders);
s = "";
for (; !fc.atEnd(); fc.moveNext())
{
GetFolderFileList(fc.item());
}
}
///////////////////////////////////////////////////////////
-->
</script>Top
2 楼griefforyou（为你伤心）回复于 2002-07-16 16:11:36 得分 0
其它就是用FileSystemObject,看看MSDN帮助就行了!@Top
3 楼hiryu（跑得快）回复于 2002-07-16 17:47:40 得分 0
老大，我挺笨的，因为你这个是用java script，所以我没搞明白意思
另外，我还不会将java script和ASP之间的变量互相调用啊～～～@>@
比如说，我希望这个函数能满足在asp里有一个变量dir_name
fileArr[i]=my_findfile(dir_name)
拜托，请教教我，我可以给你再加分的
Top
