Menampilkan Dialog Properties Sebuah File

Di bawah ini merupakan fungsi untuk menampilkan kotak dialog properties sebuah file.

Option Explicit 
 
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 
 
Public Const SEE_MASK_INVOKEIDLIST = &HC 
Public Const SEE_MASK_NOCLOSEPROCESS = &H40 
Public Const SEE_MASK_FLAG_NO_UI = &H400 
 
Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long 
 
Public Sub ShowProps(FileName As String, OwnerhWnd As Long) 
 
  Dim SEI As SHELLEXECUTEINFO   
    Dim lngReturn As Long 
 
  With SEI 
        .cbSize = Len(SEI) 
        .fMask = SEE_MASK_NOCLOSEPROCESS Or _ 
            SEE_MASK_INVOKEIDLIST Or SEE_MASK_FLAG_NO_UI 
        .hwnd = OwnerhWnd 
        .lpVerb = "properties" 
        .lpFile = FileName 
        .lpParameters = vbNullChar 
        .lpDirectory =   vbNullChar 
        .nShow = 0 
        .hInstApp = 0 
        .lpIDList = 0 
    End With 
 
  lngReturn = ShellExecuteEX(SEI) 
 
End Sub 

Contoh menggunakan dialog properties sebuah file

Option Explicit 
 
Private Sub Command1_Click() 
    Call ShowProps("C:\boot.ini", Me.hwnd) 
End Sub