ExcelForSearch=new ActiveXObject("Excel.Application");
   FileSearch=ExcelForSearch.FileSearch;
   FileSearch.LookIn="D:\\work";
   FileSearch.FileName="*.XML";
   FileSearch.Execute();

   ForSearch=new ActiveXObject("Scripting.FileSystemObject");
   FileSearch=ForSearch.FileSearch;
   FileSearch.LookIn="D:\\work";
   FileSearch.FileName="*.XML";
   FileSearch.Execute();

n=fld.Files(x).Name;

   var dir = "D:\\work";           //  из текущей директории
   var ext = "xml";         //  с расширением 
   fso=new ActiveXObject("Scripting.FileSystemObject");
   var fc = new Enumerator(fso.GetFolder(dir).Files);
   var TrueDESADV = "";
   for (; !fc.atEnd(); fc.moveNext()) {
     var n = fc.item();
     if(fso.GetExtensionName(n) == ext) {
       //fso.GetAbsolutePathName(n);
     }
   }