VBS/WSH/JS - [решено] Как вызвать диалоговое окно открытия файла?

[jaki]

На форме одна кнопка и один picturebox. При нажатии на кнопку должно появляться стандартное диалоговое окно открытия файла. Как это сделать? Я так понимаю что при помощи Api, но у меня не получается. Объявляю Api-функцию так:

Private Declare Function OpenFile Lib "kernel32" (ByVal lpFileName As String, lpReOpenBuff As OFSTRUCT, ByVal wStyle As Long) As Long

Option Explicit



При компелировании выдаёт ошибку compile error: User-defined type not defined. Что я не так делаю?

[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]

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

[caustic]

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

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

.

[caustic]

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