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

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

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

[Iska]

caustic, чтобы выбирать — изменить можно, достаточно использовать в свойстве «.Flags» константу OFN_ALLOWMULTISELECT «CommDlg.h» из Platform SDK. Вот только получить выбранные файлы невозможно ;). Попробуйте подобрать себе что-нибудь отсюда: VBScript: вызов интерактивного диалога открытия файла (http://forum.script-coding.com/viewtopic.php?id=64).

[caustic]

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