Soyez le premier à donner votre avis sur cette source.
Vue 4 987 fois - Téléchargée 271 fois
' cdlOFNAllowMultiselect : multi-sélection ' cdlOFNNoLongNames :Afficher les noms de fichiers longs en mode DOS cdl.Flags = cdlOFNAllowMultiselect Or cdlOFNNoLongNames cdl.Filter = "*.*" cdl.FileName = "*.*" cdl.Action = 1 List1.Clear ' effacer la liste result = Trim(cdl.FileName) 'extrait le resultat de la boite de dialogue j = 1 testchemin = 0 chemin = "" 'variable pour le chemin For i = 1 To Len(result) Debug.Print Mid(result, i, 1) If Mid(result, i, 1) = Chr$(32) Or i = Len(result) - 1 Then If testchemin = 0 Then ' extraire la première partie du résultat (le chemin) chemin = Trim(Mid(result, j, i)) testchemin = 1 j = i + 1 Else ' extraire la partie suivante du résultat (le fichier) et lui ajouter le chemin au début List1.AddItem chemin + Mid(result, j, i - j) j = i + 1 End If End If Next ' tester si la liste est vide alors c'est que le résultat contient seulement un fichier séléctionné If List1.ListCount = 0 Then List1.AddItem Trim(cdl.FileName)
c'est pour faire une application d'archivage sur CD mais j'ai besoin de sélectionner, et des fichiers et des répertoires, pour l'archivage, tous situés dans la même racine de répertoire.
http://www.mentalis.org/apilist/GetSaveFileName.shtml
ou bien directement sur le module :
http://www.mentalis.org/apilist/1D52C7E03E3782E75B883E436E7B341B.html
Module pour se passer du controle.
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.