Мы рады, что вы вернулись!

Иногда очень сложно найти нужный объект OLE Automation для некоторых простейших операций. Конечно, хочется чтобы он был на всех операционных системах встроенным - для диалога выбора файлов есть такой (по крайней мере для Windows XP).

VBScript:

 Set objDialog = CreateObject("UserAccounts.CommonDialog")objDialog.Filter = "All Files|*.*"
 objDialog.InitialDir = "C:\"
 intResult = objDialog.ShowOpen

If intResult = 0 Then
     Wscript.Quit
 Else
     Wscript.Echo objDialog.FileName
 End If

JScript:

 var objDialog = new ActiveXObject("UserAccounts.CommonDialog")objDialog.Filter = "All Files|*.*"
 objDialog.InitialDir = "C:\\\\"
 intResult = objDialog.ShowOpen();

if(intResult)
   Wscript.echo(objDialog.FileName);