- C / C++ / C++.NET : Propriétés d'un fichier bmp - CodeS SourceS
- Propriétés d'un fichier / d'un dossier façon windows
- Utiliser un treeview et un hierarchicalflexgrid pour afficher une arborecence de fichiers avec possi
- Delphi / Pascal : [astuce] comment afficher les icônes des fichiers listés dans un tfi
- Modifier les propriétés d'un fichier
A voir également:
- Afficher propriétés d'un fichier URGENT !!!
- Afficher la boite de dialogue propriétés d'un fichier - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Ex. concrets ! afficher les proprietes d'un fichier - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Afficher et editer des fichiers .ini dans un treeview - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Modifiez les proprietes de vos fichiers pdf ! - Codes sources - Visual Basic / VB.NET (Fichier / Disque)
- Afficher les noms de fichiers en texte (sans les extensions) - Codes sources - Visual Basic / VB.NET (Trucs & Astuces)
4 réponses
Alan71
- 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:: >:)
>:) ::Alan USSE:: >:)
leptidev
- 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 !
mWaAtR
- 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)
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
- 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:: >:)
M" bon, la tâche est pô trop compliquée quand même !
>:) ::Alan USSE:: >:)