Разделы
Главная

Windows API
Реестр
MS Access
Visual Basic
Download
Форум
Гостевая книга
Ссылки

E-mail

Партнерская программа WWW.PORTA.RU (on-line магазин портативной аудио, видео, фототехники). Самая щедрая, самая честная, самая популярная. Приглашаем всех веб-мастеров к участию!



Submitter.ru - Free promoting
MS Access

вернуться назад Свойства файла
Текст модуля:
Option Compare Database
Option Explicit

' Свойства файла
Private Type SHELLEXECUTEINFO
   cbSize As Long
   fMask As Long
   hwnd As Long
   lpVerb As String
   lpFile As String
   lpParameters As String
   lpDirectory As String
   nShow As Long
   hInstApp As Long
   lpIDList As Long
   lpClass As String
   hkeyClass As Long
   dwHotKey As Long
   hIcon As Long
   hProcess As Long
End Type

Private Declare Function ShellExecuteEX Lib "shell32.dll" Alias _
"ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long

Const SEE_MASK_INVOKEIDLIST = &HC
Const SEE_MASK_NOCLOSEPROCESS = &H40
Const SEE_MASK_FLAG_NO_UI = &H400


' Display the property page associated to a file
Sub ShowFileProperties(sFile As String)
   Dim SEI As SHELLEXECUTEINFO
   ' Fill the SHELLEXECUTEINFO structure
   With SEI
      .cbSize = Len(SEI)
      .fMask = SEE_MASK_NOCLOSEPROCESS Or SEE_MASK_INVOKEIDLIST Or _
      SEE_MASK_FLAG_NO_UI
      .lpVerb = "properties"
      .lpFile = sFile
   End With
   ' execute
   ShellExecuteEX SEI
End Sub

Обращение к функции:

' Свойства файла
Call ShowFileProperties("C:\M&T\Doc3.zip")


Свойства файла (11 606 байт)