如何用VB script 做一个函数，输入一个目录的路径，然后返回该目录下所有文件的名称？

<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>