Bonjour,

J'aimerais un fonction qui:
* grâce à une boîte de dialogue, permet la sélection d'une série de fichiers
* retourne l'ensemble des noms fichiers (path + filename + extension) sélectionné.

Je parviens à le faire pour un seul et unique répertoire (code ci-après), mais pas pour une sélection multiple de fichiers.

Enfin, j'aimerais avoir un filtre sur la boîte de dialogue, p.ex: *.txt

Merci.

Note OS: Win7, idéalement ce serait mieux si fonctionne de XP à 8.1

Code : Sélectionner tout - Visualiser dans une fenêtre à part
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
dim objShell
dim objFolder
dim ssfWINDOWS
' Flags for the options parameter
Const BIF_Foldersonly = 0
Const BIF_Browseallfiles =16384
Const BIF_returnonlyfsdirs   = &H0001
Const BIF_dontgobelowdomain  = &H0002
Const BIF_statustext         = &H0004
Const BIF_returnfsancestors  = &H0008
Const BIF_editbox            = &H0010
Const BIF_validate           = &H0020
Const BIF_browseforcomputer  = &H1000
Const BIF_browseforprinter   = &H2000
Const BIF_browseincludefiles = &H4000
 
ssfWINDOWS =  BIF_Foldersonly
set objShell = CreateObject("shell.application")
set objFolder = objShell.BrowseForFolder(0, "Select the folder you want", ssfWINDOWS, "E:\")
if (not objFolder is nothing) then
	'Add code here.
	Msgbox objFolder
end if
set objFolder = nothing
set objShell = nothing