Компьютерный форум OSzone.net  

Компьютерный форум 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.

Время: 14:06.
© OSzone.net 2001-