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

Компьютерный форум OSzone.net (http://forum.oszone.net/index.php)

- Скриптовые языки администрирования Windows (http://forum.oszone.net/forumdisplay.php?f=102)

- - [решено] Как вызвать диалоговое окно открытия файла? (http://forum.oszone.net/showthread.php?t=119885)

jaki	13-10-2008 01:23 922236

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

На форме одна кнопка и один 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

29-01-2009 13:27 1023405

На 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

29-03-2011 18:07 1646603

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

Iska	29-03-2011 19:36 1646658

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

caustic

30-03-2011 12:12 1647143

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

Время: 14:06.