Discussion :

[Gmrinfo]

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

[pc75]

Bonjour,

Une piste :

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
 
'// 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

[Gmrinfo]

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 ?

[omen999]

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

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

[Gmrinfo]

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 :

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
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 )

[ThierryAIM]

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