Afficher propriétés d'un fichier URGENT !!!

leptidev Messages postés 206 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 décembre 2007 - 14 oct. 2002 à 18:48
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004 - 15 oct. 2002 à 22:58
Bonjour, je voudrais afficher la page de window des propriétés sur VB pour n'importe quel fichier, merci d'avance

4 réponses

Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
14 oct. 2002 à 19:06
OK, je sais pô comment faire, mé regarde les fonctions suivantes, GetAttr, SetAttr, FileLen, FileDateTime. Et fait ta page de propriété perso !

>:) ::Alan USSE:: >:)
0
leptidev Messages postés 206 Date d'inscription mercredi 30 janvier 2002 Statut Membre Dernière intervention 4 décembre 2007
15 oct. 2002 à 12:47
Oui, ça je sais le faire, mais tu es sur que on ne peut pas y accéder ??? parce que ça m'éviterait tout ça !
0
mWaAtR Messages postés 49 Date d'inscription jeudi 30 août 2001 Statut Membre Dernière intervention 28 avril 2010
15 oct. 2002 à 15:39
Il faut utiliser l'api shellexecuteex

Voilà une fonction toute faite à placer dans un module :

Private Const SEE_MASK_INVOKEIDLIST = &HC
Private Const SEE_MASK_NOCLOSEPROCESS = &H40
Private Const SEE_MASK_FLAG_NO_UI = &H400

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" Alias "ShellExecuteEx" (SEI As SHELLEXECUTEINFO) As Long

Public Function ShowProperties(FullPath As String, OwnerhWnd As Long) As Long
'FullPath : fichier ou dossier cible.
'OwnerhWnd : Handle de la fenêtre propriéataire.
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 = FullPath
.lpParameters = vbNullChar
.lpDirectory = vbNullChar
.nShow = 0
.hInstApp = 0
.lpIDList = 0
End With
r = ShellExecuteEX(SEI)
ShowProperties = SEI.hInstApp
End Function

(pour plus d'info voir MSDN)
0
Alan71 Messages postés 530 Date d'inscription lundi 3 juin 2002 Statut Membre Dernière intervention 13 juin 2004
15 oct. 2002 à 22:58
On est sur de rien avec l'informatique !

M" bon, la tâche est pô trop compliquée quand même !

>:) ::Alan USSE:: >:)
0
Rejoignez-nous