Discussion :

[Thulkash]

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)

[pc75]

Bonjour,

Peut-être là ?

http://www.informania-fr.com/windows...ident=rundll32

[omen999]

salut,
comme son nom l'indique BrowseForFolder n'est pas équivalent à BrowseForFiles
deux solutions:
- écrire ou trouver un composant activex qui saura faire le boulot
ex: http://www.jsware.net/jsware/scripts.php3
- attaquer directement la comdlg32.dll "comme les grands"
voir l'exemple dans les contributions: http://www.developpez.net/forums/sho...d.php?t=333644
(profites-en c'est ma seule contrib à ne pas avoir été délestée...)

[Thulkash]

C'est bien ce que je pensais, ça va être bien compliqué pour l'utilisation que je vais en avoir de ce script... Il est dommage qu'ils implémentent une sélection graphique de dossier mais pas de fichier... Tant pis, je vais me débrouiller autrement . En tout cas, merci beaucoup pour vos réponses

[RadPAT]

Salut,

voici une méthode que j'ai trouvé sur le net et qui me convient :

Code :

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

1
2
3
Set objDialog=CreateObject("SAFRCFileDlg.FileOpen")
ObjDialog.OpenFileOpenDlg
OpenFile=objDialog.FileName

Pour récupérer le nom du fichier selectionné, tu fais ca :

Code :

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

1
2
strFileName=objDialog.FileName
MsgBox strFileName

en espérant que ca puisse t'aider.
A++

[Thulkash]

la classe ! Pile poil ce qu'il me fallait !! Merci beaucoup !