VB. Source Code :: Melihat Property Files

-   Source Code dibawah ini adalah untuk melihat kotak dialog property suatu file berjenis/ extensi apapun..

-   Langkah-Langkahnya adalah :

1. Buat 1 Project baru dengan 1 Form, 1 Module, dan 1 Commandbutton.

2. Copy-kan coding berikut ke dalam editor Module/Form

//kode ini untuk di module//

 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

     //akhir kode untuk module//

//kode ini untuk di form//

      Public Sub ShowProps(FileName As String, OwnerhWnd As Long)

Dim SEI As SHELLEXECUTEINFO

Dim r 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

  r = ShellExecuteEX(SEI)

End Sub

Private Sub Command1_Click()

  'Ganti 'c:\autoexec.bat' dengan nama file yang Anda ingin lihat kotak

  'dialog property-nya...

  Call ShowProps("c:\autoexec.bat", Me.hwnd)

End Sub

//akhir kode untuk form//