Voici la dernière mouture de "Gestion_Fichiers".
Je remercie "Lolotte83" pour sa participation, que j’ai beaucoup apprécié.
Ainsi à "Yeahou" pour son investissement à moderniser le code.
La dessus j’ai ajouté la possibilité d’imprimer le résultat, l’impression s’adapte
Aux données " Portrait ou paysage "
Pour mémoire :
Jean-Paul
Je remercie "Lolotte83" pour sa participation, que j’ai beaucoup apprécié.
Ainsi à "Yeahou" pour son investissement à moderniser le code.
La dessus j’ai ajouté la possibilité d’imprimer le résultat, l’impression s’adapte
Aux données " Portrait ou paysage "
Pour mémoire :
| version 32 bits |
| Declare Function SHGetPathFromIDList Lib "shell32.dll" _ |
| Alias "SHGetPathFromIDListA" (ByVal pidl As Long, ByVal pszPath As String) As Long |
| Declare Function SHBrowseForFolder Lib "shell32.dll" _ |
| Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As Long |
| version 64 bits |
| Declare PrtSafe Function SHGetPathFromIDList Lib "shell32.dll" _ |
| Alias "SHGetPathFromIDListA" (ByVal pidl As LongPtr, ByVal pszPath As String) As LongPtr |
| Declare PrtSafe Function SHBrowseForFolder Lib "shell32.dll" _ |
| Alias "SHBrowseForFolderA" (lpBrowseInfo As BROWSEINFO) As LongPtr |
Jean-Paul
