Il y a un exemple de code dans this question. Citant:
En VB6, ajoutez le composant:
- Projet> Composants
- Dans l'onglet Commandes, sélectionnez Microsoft Common Dialog Control 6.0 (SP6)
maintenant sur votre formulaire, ajouter le nouveau contrôle Common Dialog à partir de la boîte à outils
Dans le code, vous avez besoin de:
CommonDialog1.Filter = "Apps (*.txt)|*.txt|All files (*.*)|*.*"
CommonDialog1.DefaultExt = "txt"
CommonDialog1.DialogTitle = "Select File"
CommonDialog1.ShowOpen
'The FileName property gives you the variable you need to use
MsgBox CommonDialog1.FileName
I modifié la réponse de @Ant – Rob