폴더 공유속성띄우기ShellExecuteEX,

[올란도]

1. 모듈에 다음의 API FUNCTION 을 선언합니다.

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     'Optional parameter
    lpClass       As String   'Optional parameter
    hkeyClass     As Long     'Optional parameter
    dwHotKey      As Long     'Optional parameter
    hIcon         As Long     'Optional parameter
    hProcess      As Long     'Optional parameter
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

2. 폼에 텍스트 박스 하나와 버튼을 하나를 만든후 다음과 같이 코딩하시기 바랍니다.

Private Sub ShowProperties(filename As String)
    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 = Me.hwnd
        .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()
   ShowProperties Text1.Text
End Sub

[꼭미남강유]

TextBox 에 폴더 Path를 입력하니 폴더정보가 뜨는군요.