Fenêtre de recherche sur Windows en VBscript.

Bonjour,

Je voudrais ouvrir en VBScript une fenêtre de recherche de fichier sur Windows, comme dans la pièce jointe. J'aimerai avoir la possibilité de séléctionner de voir l'arborescence des fichiers et dossiers dans un dossier donné et de pouvoir y séléctionner des fichiers.

J'ai utilisé la fonction BrowseForFolder de la manière suivante :

Code:

---

1 2 3 4

flag=BIF_returnonlyfsdirs titre="Test de sélection de dossier" dirinit="C:\" Set oFolder = shell.BrowseForFolder(0, title, flag, dirinit)

---

Mais dans ce cas je n'ai pas la possibilité d'accéder aux fichiers et d'en séléctionner un ou plusieurs.

Est-ce que quelqu'un pourra m'aider?

Merci d'avance pour toute suggestion.

les constantes Flags possibles pour BrowseForFolder :

Code:

---

1 2 3 4 5 6 7 8 9 10 11

Const BIF_STATUSTEXT = &H4& Const BIF_RETURNONLYFSDIRS = &H1 Const BIF_DONTGOBELOWDOMAIN = &H2 Const BIF_RETURNFSANCESTORS = &H8 Const BIF_BROWSEFORCOMPUTER = &H1000 Const BIF_BROWSEFORPRINTER = &H2000 Const BIF_BROWSEINCLUDEFILES = &H4000 Const BIF_NONEWFOLDERBUTTON = &H200 Const BIF_NEWDIALOGSTYLE = &H40 Const BIF_UAHINT = &H100 Const BIF_EDITBOX = &H10

---

essaie avec

Code:

---

flag=BIF_BROWSEINCLUDEFILES

---