[Radchin]

На VBScript — это можно сделать следующим образом

Код:

Set objDialog = CreateObject("UserAccounts.CommonDialog")

objDialog.Filter = "VBScript Scripts|*.vbs|All Files|*.*"
objDialog.FilterIndex = 1
objDialog.InitialDir = "C:\"
intResult = objDialog.ShowOpen
 
If intResult = 0 Then
    Wscript.Quit
Else
    Wscript.Echo objDialog.FileName
End If

[caustic]

А как этот код видоизменить, чтобы можно было выбирать не один а несколько файлов?

[Iska]

caustic, чтобы выбирать — изменить можно, достаточно использовать в свойстве «.Flags» константу OFN_ALLOWMULTISELECT «CommDlg.h» из Platform SDK. Вот только получить выбранные файлы невозможно . Попробуйте подобрать себе что-нибудь отсюда: vbscript: вызов интерактивного диалога открытия файла.

[caustic]

пасиба, ужо подобрал))