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
|