Evidemment c'est un exemple de source et l'explorateur de dossier n'a jamais été testé sous NT, le code suivant peut être enlevé ça marche quand même :
If objFolder.Title = "Bureau" Then
Chemin = "c:\WINDOWS\BUREAU"
End If
Et pour finir la PictureBox est déjà en AutoSize = True dans les propriétés donc si tu a un dossier avec des icônes en 16x16 et d'autres en 32x32 pixels ça conserve quand même les dimensions d'origine pour chaque fichier.
Je viens de tester avec un dossier qui contient des icônes en 16x16 et 32x32 et il me les toutes convertis en conservant le format d'origine.
J'ai problème lors de l'exécution de ton projet, problème sur la ligne Set objShell = CreateObject("Shell.Application") (je suis sous NT4). De même le codage en dur "c:\WINDOWS\BUREAU" n'est pas trop adapté.
Je n'ai pas encore fait fonctionner, mais je vois que tu ne redimensionnes pas ta picturebox, tu risques d'avoir au final des images qui n'ont pas la bonne dimension.
++
If objFolder.Title = "Bureau" Then
Chemin = "c:\WINDOWS\BUREAU"
End If
Et pour finir la PictureBox est déjà en AutoSize = True dans les propriétés donc si tu a un dossier avec des icônes en 16x16 et d'autres en 32x32 pixels ça conserve quand même les dimensions d'origine pour chaque fichier.
Je viens de tester avec un dossier qui contient des icônes en 16x16 et 32x32 et il me les toutes convertis en conservant le format d'origine.
@+++
Je n'ai pas encore fait fonctionner, mais je vois que tu ne redimensionnes pas ta picturebox, tu risques d'avoir au final des images qui n'ont pas la bonne dimension.
++
moustachu
10/10
Vous n'êtes pas encore membre ?
inscrivez-vous, c'est gratuit et ça prend moins d'une minute !
Les membres obtiennent plus de réponses que les utilisateurs anonymes.
Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.
Le fait d'être membre vous permet d'avoir des options supplémentaires.