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

Question

Bonjour, je voudrais afficher la page de window des propriétés sur VB pour n'importe quel fichier, merci d'avance

Alan71 · Answer

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::  >:)

leptidev · Answer

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 !

mWaAtR · Answer

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)

Alan71 · Answer

On est sur de rien avec l'informatique !

M" bon, la tâche est pô trop compliquée quand même !

 >:)  ::Alan USSE::  >:)