ouverture boite de dialogue selection fichiers

Comment fait on pour ouvrir la boite de dialogue de windows qui permet de sélectionner un ou plusieurs fichiers ?
Merci d'avance.

Bonjour,

Une piste :

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

'// Create the Object 'cd = new ActiveXObject("MSComDlg.CommonDialog") set cd = CreateObject("MSComDlg.CommonDialog")   '// Set file filter cd.Filter = "All Files(*.*)|*.*|JScript Files(*.js)|*.js" cd.FilterIndex = 2   '// Must set MaxFileSize. Otherwise you will get an error cd.MaxFileSize = 128   '// Show it to user cd.ShowOpen()   '// Retrieve file + path file = cd.FileName

---

Ca me donne le bug la classe n'a pas de licence d'utilisation.
J'ai bien téléchargé différents trucs comme vbrun mais ca ne marche pas quelqu'un aurait la bonne url à télécharger pour que je puisse éxecuter ce script ?

bonjour,
le contrôle ms n'est pas utilisable quand on n'a pas la license installée avec
visual studio ou d'autres produits ms :aie:

une petite visite ici: http://ccrp.mvps.org/

Comme j'ai Excel j'ai pu utiliser ce code. Il faut noter que pour mettre un path par défaut, il faut créer unpremier objet "Excel.Application"

Code:

---

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

Dim oXL, strFileName, String   strFilter = "Tab Separated Text,*.tst,All Files,*.*" intFilterIndex = 0 strTitle = "Select Import File" strButtonText= "Select"     Set oXL = CreateObject("Excel.Application") oXL.DefaultFilePath = "c:\"   Set WshShell = CreateObject ("wscript.Shell") CurDir = CreateObject ("WScript.Shell").CurrentDirectory   ' -- Get the file name from the XL object strFileName = oXL.GetOpenFileName( strFilter, intFilterIndex, strTitle, _ strButtonText, False )

---

Mouais ....

Si le Flag BROWSEINCLUDEFILES fonctionnait sous vbscript comme sous VB6, on aurai pas besoin de tels artifices avec ça : http://www.developpez.net/forums/sho...d.php?t=270516