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

Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007
-
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004
-
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

Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

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:: >:)
Messages postés
206
Date d'inscription
mercredi 30 janvier 2002
Statut
Membre
Dernière intervention
4 décembre 2007

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 !
Messages postés
49
Date d'inscription
jeudi 30 août 2001
Statut
Membre
Dernière intervention
28 avril 2010

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)
Messages postés
530
Date d'inscription
lundi 3 juin 2002
Statut
Membre
Dernière intervention
13 juin 2004

On est sur de rien avec l'informatique !

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

>:) ::Alan USSE:: >:)