VBScript: вызов интерактивного диалога открытия файла

'Пример открытия одного или нескольких файлов через диалоговое окно
'Для работы необходимо наличие в системе COMDLG32.OCX (на большинстве машин уже присутствует)

Set OpenDialog = CreateObject("MSComDlg.CommonDialog") 'Microsoft Common Dialog Control
With OpenDialog
    .DialogTitle = "Откройте нужный Вам файл!"
    .InitDir = "C:\WINDOWS\"
    .Filter = "Все файлы (*.*)|*.*|Программы (*.com,*.exe)|*.com;*.exe|Текст (*.txt,*.log)|*.txt;*.log"
    .FilterIndex = 2
    .Flags = 2621952
    .MaxFileSize =32000
    .ShowOpen
    Filename = .Filename
End With

If (Len(OpenDialog.FileName)= 0) Then
    WScript.Echo "Файлы не выбраны!"
    WScript.Quit 1
End If

files = Split(OpenDialog.Filename, vbNullChar)
count_files = UBound(files)
If count_files > 0 Then
    path = files(0) + "\"
    For i = 1 To count_files
        WScript.Echo path + files(i)
    Next
Else
    WScript.Echo files(0)
End If

Main();

function Main()
{
 var sFiles, nFiles;
 var aFiles = GetFileList();

   if ( (nFiles = aFiles.length) == 0 )
     sFiles = 'Список выбранных файлов пуст!';
   else
   {
     sFiles = 'Список выбранных файлов:\n\n';
     for (var i = 0; i < nFiles; i++) 
       sFiles += '  ' + (i + 1) + '.  ' + aFiles[i] + '\n';
   }

   WScript.Echo(sFiles);

   return(nFiles);
}


function GetFileList()
{
 var oFileDlg, aFiles;
 
  try
  {
    oFileDlg = new ActiveXObject("MSComDlg.CommonDialog");
    
    with ( oFileDlg )
    {
      // const int cdlcdlOFNHideReadOnly  = 4       (0x4);       Делает невидимым переключатель Read Only.
      // const int cdlOFNNoChangeDir      = 8       (0x8);       Вынуждает диалоговое окно устанавливать текущий каталог в тот, который был при предыдущем открытии.
      // const int cdlOFNAllowMultiselect = 512     (0x200);     Пользователь может выбрать более чем один файл. (multiple selections).
      // const int cdlOFNFileMustExist    = 4096    (0x1000);    Определяет, что можно вводить имена только существующих файлов. User can enter only names of existing files.
      // const int cdlOFNExplorer         = 524288  (0x80000);   Определяет внешний вид окна выбора.
      // const int cdlOFNLongNames        = 2097152 (0x200000);  Позволяет пользователю использовать длинные имена файлов Long filenames enable.
      Flags = 4 + 8 + 512 + 4096 + 524288 + 2097152;
      CancelError = false;
      MaxFileSize = 8192;
      filename = "";
      InitDir = "";
      DialogTitle = 'Выбор файлов: Удерживая Ctrl отметьте требуемые файлы.'
      Filter = "Все файлы|*.*|MS Word файлы|*.doc|MS Excel файлы|*.xls|Текстовые файлы|*.txt";
      FilterIndex = 1;
      ShowOpen();
      
      if ( filename.length > 0 )
      {
        aFiles = filename.split("\0");
        if ( aFiles.length > 1 )
        {
         var nFiles = aFiles.length - 1;
         var sPath  = aFiles[0];
        
           if ( sPath.charAt(sPath.length-1) != "\\" )
             sPath += "\\";

           for(var nCnt = 0; nCnt < nFiles; nCnt++)
            aFiles[nCnt] = sPath + aFiles[nCnt + 1];
            
          aFiles.length = nFiles;
        }
      }  
     }
  }
  catch(e)
  {
  }
  
  if ( aFiles == null )
   return( new Array() );
   
  return( aFiles );
}

Set Sys = CreateObject("JSSys3.Ops")
r = Sys.OpenDlg("Открыть файл", "bmp", "C:\")
WScript.Echo r
r = Sys.OpenMultiDlg("Открыть несколько файлов", "", "")
WScript.Echo r
r = Sys.SaveDlg("Сохранить файл", "txt")
WScript.Echo r
r = Sys.ColorDlg
WScript.Echo r ' возвращает шестисимвольный код (строка)
r = Sys.BrowseForFolder("Выбор папки")
WScript.Echo r