<script language="JScript">

  var sh = new ActiveXObject("WScript.Shell");
  
  var ex = sh.Exec("cmd /c dir ");

  WScript.Echo(WScript.ScriptName, "\nсписок файлов\n",ex);

</script>

<script language="JScript">

  var rev = "rev$1.0 2007-09-17";  // формирование отчета ф39 как суммы из файлов по областям
  WScript.Echo(WScript.ScriptName, "\nформирование отчета ф39\n",rev,Date());
  WScript.Echo(WScript.ScriptName, "\nсписок файлов\n", ShowFolderList("D:\\work\\111\\script"));



function ShowFolderList(folderspec)
{
   var fso, f, fc, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(folderspec);     //немогу найти метод который выводить список файлов в папке, а  не подпапок
   fc = new Enumerator(f.SubFolders);
   s = "";
   for (; !fc.atEnd(); fc.moveNext())
   {
      s += fc.item();
      s += "\n";
   }
   return(s);
}

function GetFolderList(folderaddress) 
{
   var fso, f, fc, s;
   fso = new ActiveXObject("Scripting.FileSystemObject");
   f = fso.GetFolder(folderaddress); 		
   fc = new Enumerator(f.files); 		
   s = "";
   for (; !fc.atEnd(); fc.moveNext()) 
   {
   	  TestFile(fc.item());
   	  s += fc.item();			
          s += "\n"; // "s" я возвращаю для вывода на экран и тут она себя ведет как текстовая переменная (все нормально)
   }
   return(s);
}

function TestFile(testaddress)
{
   var reg;
   reg="/\b.\b";     							
   if (reg.test(testaddress)) // а тут у мну ругается что не того типа				
   {
      GetExcelData(testaddress);					
      return (testaddress);
   }
}