Стандартные диалоговые окна: У Вас есть возможность воспользоваться элементами библиотеки стандартного пользовательского интерфейса:

// Использование дочерних диалоговых окон
// Файл: file.w_js (JScript)

   var hMenu = Window.CreateMenu();
   Window.AppendMenu(hMenu,"MF_STRING",8000,"&Open File");
   Window.AppendMenu(hMenu,"MF_STRING",8001,"&Save To File");
   Window.AppendMenu(hMenu,"MF_STRING",8002,"Select &Directory");
   Window.AppendMenu(hMenu,"MF_SEPARATOR",0,"");
   Window.AppendMenu(hMenu,"MF_STRING",8003,"&Exit");
   Window.AppendMenu(0,"MF_POPUP",hMenu,"File");
   Window.DrawMenuBar();
   Window.DestroyMenu(hMenu); // Описатель на уровне скрипта не нужен

   function WM_COMMAND(id)
   { 

// Общий диспетчер тре диалоговых окон :
// FileDialog(type,str)
// type: 0 - выбрать файл для открытия
//       1 - выбрать файл для записи
//       2 - выбрать каталог

switch (id)
{ case 8000: 
  var fread = "Файл на чтение:";
  fread += Window.FileDialog(0,"default.txt","E:\\","Text(*.txt)|*.txt||");
  Window.TextOut(0,50,50,fread);
  Window.UpdateWindow();
  break;

  case 8001:
  var fsave = "Файл на запись:";
  fsave += Window.FileDialog(1,
                             "default.txt",
                             "E:\\","Text(*.txt)|*.txt|All(*.*)|*.*||");
  Window.TextOut(0,50,80,fsave);
  Window.UpdateWindow();
  break;

  case 8002:
  var dir = "Директория:";
  dir += Window.FileDialog(2,
                          "E:\\Nano",
                          "Выберите директорию",
                          "");
  Window.TextOut(0,50,120,dir);
  Window.UpdateWindow();
  break;

  case 8003:
  Window.Close();
  break;
     };
   };

// File: file.w_vbs (VBScript)
   hMenu = Window.CreateMenu
   Window.AppendMenu hMenu,"MF_STRING",8000,"&Open File"
   Window.AppendMenu hMenu,"MF_STRING",8001,"&Save To File"
   Window.AppendMenu hMenu,"MF_STRING",8002,"Select &Directory"
   Window.AppendMenu hMenu,"MF_SEPARATOR",0,""
   Window.AppendMenu hMenu,"MF_STRING",8003,"&Exit"
   Window.AppendMenu 0,"MF_POPUP",hMenu,"File"
   Window.DestroyMenu(hMenu)
   Window.DrawMenuBar

Function WM_COMMAND(id)

' FileDialog(type,str)
' type: 0 - "Open File"
'       1 - "Save To File"
'       2 - "Browse dir"

Select Case id
 Case 8000
  fread = "File to read:"
  fread = fread & Window.FileDialog( 0,"default.txt","E:\\","Text(*.txt)|*.txt||" )
  Window.TextOut 0,50,50,fread
  Window.UpdateWindow

 Case 8001
  fsave = "File to save:"
  fsave = fsave & Window.FileDialog( 1,"default.txt","E:\\","Text(*.txt)|*.txt|All(*.*)|*.*||" )
  Window.TextOut 0,50,80,fsave
  Window.UpdateWindow


 Case 8002
  dir = "Directory:"
  dir = dir & Window.FileDialog( 2,"E:\\Nano","select folder","" )
  Window.TextOut 0,50,120,dir
  Window.UpdateWindow

 Case 8003
  Window.Close
End Select

End Function

Note:

Для функций выбора файла Вы задаете допустимые маски в виде текстовой строки, из пар: описание|шаблон, заканчиваете такую строку двумя символами "|". Пример:
"Текстовые файлы|*.txt|Все файлы|*.*||"