Bonjour,
Je souhaite faire apparaître dans un script VBS une boite de sélection graphique de fichier, telle que celle fournit pour les dossiers par la fonction BrowseForFolder.
J'ai bien essayé de détourner l'utilisation de cette fonction en faisant apparaître les fichiers avec l'option BrowseIncludeFiles mais ça ne fonctionne pas et me sort une erreur :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Le fichier spécifié est introuvable.
sur la ligne de code
Code : Sélectionner tout - Visualiser dans une fenêtre à part
Set objFichier = objShell.BrowseForFolder(&H0&, "Choisir le fichier", conReturnOnlyFSDirs + conNoNewFolderButton + conBrowseIncludeFiles)
Voici mon code :
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
Function funcSelectionFichier
   Const conReturnOnlyFSDirs = &H1
   Const conNoNewFolderButton = &H200
   Const conBrowseIncludeFiles = &H4000
 
   Dim objShell, objFichier, objFichierChoisi
 
   Set objShell = CreateObject("Shell.Application")
   Set objFichier = objShell.BrowseForFolder(&H0&, "Choisir le fichier", conReturnOnlyFSDirs + conNoNewFolderButton + conBrowseIncludeFiles)
 
   If objFichier Is Nothing Then
      MsgBox "Vous n'avez rien sélectionné", vbCritical, "Abandon"
      Wscript.Quit
   Else
      Set objFichierChoisi = objFichier.Self
      funcSelectionFichier = objFichierChoisi.Path
   End If
 
   Set objShell = Nothing
   Set objFichier = Nothing
   Set objFichierChoisi = Nothing
End Function
Existe-t-il une fonction pour les fichiers directement implémentée ? ou bien faut-il que je modifie mon code (si oui, en quoi ?) ?
Par avance, merci.

Un lien sur la FAQ ici et 2 liens sur MSDN pour aider :
BrowseForFolder
BrowseInfo (les options)