Afficher la boite de dialogue PROPRIÉTÉS d'un fichier,
Ce à partir de votre application VB, c'est possible...
(Code récupéré sur VBCODE.COM et créé par un anonyme que je remercie.)
Source / Exemple :
'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.