Equivalent de BrowseForFolder pour les fichiers
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:
Le fichier spécifié est introuvable.
sur la ligne de code
Code:
Set objFichier = objShell.BrowseForFolder(&H0&, "Choisir le fichier", conReturnOnlyFSDirs + conNoNewFolderButton + conBrowseIncludeFiles)
Voici mon code :
Code:
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)