VB 打开、查看指定文件的属性窗口,打开文件属性面板

  • A+
所属分类:lcx

VB 打开、查看指定文件的属性窗口,打开文件属性面板:

Option Explicit

Private Const SW_SHOW = 5
Private Const SEE_MASK_INVOKEIDLIST = &HC
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" (ByRef s As SHELLEXECUTEINFO) As Long

Public Sub FileProperty(ByVal P As String)
    Dim shInfo As SHELLEXECUTEINFO
    With shInfo
        .cbSize = LenB(shInfo)
        .lpFile = P
        .nShow = SW_SHOW
        .fMask = SEE_MASK_INVOKEIDLIST
        .lpVerb = "properties"
    End With
    ShellExecuteEx shInfo
End Sub

Private Sub Form_Load()
    FileProperty "cmd.exe"
End Sub

文章来源于lcx.cc:VB 打开、查看指定文件的属性窗口,打开文件属性面板

相关推荐: 【VB】读取硬盘盘符及卷名(包括网络驱动器)

    读取/获取硬盘盘符及卷名(包括网络驱动器),VB 读取/获取硬盘盘符(包括网络驱动器),VB 读取/获取硬盘卷名(包括网络驱动器),VB 读取/获取网络驱动器盘符及卷名,VB 读取/获取网络驱动器盘符,VB 读取/获取网络驱动器卷名,VB 读取/获取硬…

发表评论

:?: :razz: :sad: :evil: :!: :smile: :oops: :grin: :eek: :shock: :???: :cool: :lol: :mad: :twisted: :roll: :wink: :idea: :arrow: :neutral: :cry: :mrgreen: