SELECTION MULTIPLES DANS UNE COMMONDIALOGBOX
SibosisITS
Messages postés
72
Date d'inscription
mardi 26 février 2002
Statut
Membre
Dernière intervention
20 juin 2003
-
6 févr. 2003 à 12:40
gilardh Messages postés 70 Date d'inscription mercredi 21 août 2002 Statut Membre Dernière intervention 22 février 2008 - 6 févr. 2003 à 14:00
gilardh Messages postés 70 Date d'inscription mercredi 21 août 2002 Statut Membre Dernière intervention 22 février 2008 - 6 févr. 2003 à 14:00
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/5927-selection-multiples-dans-une-commondialogbox
https://codes-sources.commentcamarche.net/source/5927-selection-multiples-dans-une-commondialogbox
6 févr. 2003 à 14:00
Pourrais n'utile tu pas la fonction split ?
Regards
gilardh
6 févr. 2003 à 12:40
Sub RecupeListe(Chaine as String, ByRef Chemin as String, ByRef Fichiers() as String)
Dim ResteChaine as String
Dim Pos as Long
Pos=InStr(Chaine, chr$(0))
Chemin = Left(Chaine, Pos-1)
ResteChaine = Mid$(Chaine, Pos+1)
Redim Fichiers(0)
While ResteChaine<>""
Pos = InStr(ResteChaine, chr$(0))
Fichiers(Ubound(Fichiers)) = Left(ResteChaine, Pos-1)
ResteChaine = Mid$(ResteChaine, Pos+1)
Redim Preserve Fichiers(Ubound(Fichiers)+1)
Wend
On Error Resume Next
Redim Preserve Fichiers(Ubound(Fichiers)-1)
End Sub
L'argument Chemin est une référence à la chaine qui contiendra le dossier
L'argument Fichiers() est un tableau (déclaration de la forme 'Dim Nom_Tabl()', avec rien dans les parenthèses) qui contiendra la liste des fichiers...
@++ et bonne prog...
(: Sibo ;)