1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37
| Dim Fichier() As String
Dim n As Integer
Private Sub Form_Load()
'Initialisation du commondialog
CommonDialog1.Flags = &H200 Or &H80000 'Permet le multiselect (200)
'et la boite de dialogue est de type explorateur (80000)
CommonDialog1.MaxFileSize = 32767 'Nombre de caractères maximum du multiselect (Valeur par défaut=256)
End Sub
Private Sub Command1_Click()
CommonDialog1.ShowOpen
If CommonDialog1.FileTitle = "" Then
iprecedent = 0
n = -1
For i = 1 To Len(CommonDialog1.FileName)
If Asc(Mid(CommonDialog1.FileName, i, 1)) = 0 Then
n = n + 1
ReDim Preserve Fichier(0 To n) As String
Fichier(n) = Mid(CommonDialog1.FileName, iprecedent + 1, i - iprecedent - 1)
iprecedent = i
End If
Next
n = n + 1
ReDim Preserve Fichier(0 To n) As String
Fichier(n) = Mid(CommonDialog1.FileName, iprecedent + 1, i - iprecedent - 1)
'Placer ici le code a effectuer lors d'une sélection multiple
'[FileTitle du fichier n = Fichier(n)]
'[FileName du fichier n = Fichier(0) & "\" & Fichier(n)]
Else
'Placer ici le code a effectuer lors d'une sélection simple
End If
End Sub |
Partager