Soyez le premier à donner votre avis sur cette source.
Snippet vu 6 644 fois - Téléchargée 48 fois
'Launch the File Properties dialog box for a given file '---------------------------------------------------------- 'Author : Anonymous 'Date Submitted : 1/12/1999 'Category : File Manipulations 'Compatibility : VB 6,VB 5,VB 4/32 'Origin : VBCODE.COM '---------------------------------------- 'Declarations (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 ' Public Declare Function ShellExecuteEX Lib "shell32.dll" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long ------------------------------------------------- 'Code (Form1 + 1 bouton de commande) ------------------------------------------------ Private Sub Command1_Click() 'call file properties dialog box On Error Resume Next Call File_Properties_DialogBox("c:\windows\system\sysedit.exe", Me.hwnd) End Sub Public Sub File_Properties_DialogBox(FileName As String, OwnerhWnd As Long) Dim SEI As SHELLEXECUTEINFO Screen.MousePointer = 11 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 Call ShellExecuteEX(SEI) Screen.MousePointer = 0 End Sub ---------------------------------------------------------------------------------------------------
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.