| |
|
|
| | В таблице Access хранятся пути к файлам (jpg, pdf). Есть необходимость открывать связанное с файлом приложение (если щёлкаю по pdf, то должен открыться Acrobat Reader или любой другой просмотрщик pdf, установленный в системе и связанный с расширением, также если щёлкаю по jpg, то должен открыться связанный просмотрщик графики (ACDSee, IrfanView и т.п.).
Кроме того, нужно получить дату создания файла.
Подскажите, пожалуйста, как можно решить указанные задачи средствами VBA? | |
| |
| |
| |
|
|
| | можно так попробовать
объявляем функцию (где-нибудь в модуле):
Declare Function ShellExecute& Lib "shell32.dll" Alias "ShellExecuteA" (ByVal _
hwnd As Long, ByVal lpOperation As String, ByVal lpFile As String, ByVal _
lpParameters As String, ByVal lpDirectory As String, ByVal nShowCmd As Long)
|
вызываем:
dim res As Long, hwnd As Long
res = ShellExecute(hwnd, "open", "NOTEPAD.EXE", "имя_файла", "", SW_MAXIMIZED)
If res < 32 Then MsgBox "'ShellExecute' function error", vbExclamation
|
| |
| |
| |
| |
|
|
| | Можно так:
Dim wshShell As Object, fso As Object
Const Path="C:\My.pdf" ' "C:\My.jpg"
Set wshShell = CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
With fso.GetFile(Path)
MsgBox .DateCreated 'Дата создания
wshShell.Run .ShortName, 3, True ' 3 - Maximize окно приложения, True - ждем закрытия
End With
Set fso = Nothing
Set wshShell = Nothing
|
| |
| |
| |
