Selection multiples dans une commondialogbox

Commenter

Contenu du snippet

On peut sélectionner plusieurs fichiers dans une boite de dialogue ouvrir.
FileName renvoie une chaîne contenant le chemin ainsi que le nom de tous les fichiers sélectionnés, séparés par des espaces.

Source / Exemple : 


Sub selectionMultiples()
Dim cheminFichier as String
Dim fichiers() as String

With nomForm.nomCommonDialog
    .nomCommonDialog.Flags = cdlOFNAllowMultiselect
        ' On ajoute un flag qui autorise la selection de plusieurs fichiers
    .MaxFileSize = 32767
        ' On redéfini la taille maximale d'un nom de fichier sélectionné
    .nomCommonDialog.ShowOpen
        ' Ouvre la boîte de dialogue Ouvrir du contrôle CommonDialog
    
         fichiers = Split(.nomCommonDialog.Filename, " ")
             ' On decoupe la chaine contenant les fichiers et on les place dans le tableau
             ' Attention la première entrée du tableau contient le chemin d'accès aux fichiers 
             ' Dans le cas d'une selection unique cette entrée contient également le nom du fichier  
         cheminFichier = Fichier(0) + "\"
        ' On récupère la chaîne contenant le chemin d'accès aux fichiers
End With
end sub

A voir également

S'inscrire maintenant

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.

Du même auteur (cs_myco)