Discussion :

[catadanna]

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

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.

[ThierryAIM]

les constantes Flags possibles pour BrowseForFolder :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

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 :

Sélectionner tout - Visualiser dans une fenêtre à part

flag=BIF_BROWSEINCLUDEFILES