Bonjour,
J'aimerai savoir comment gérer le "cancel" dans une boite de dialogue de sélection de fichier.

J'aimerai en cliquant sur le bouton cancel le script quit au lieu de continuer , et aussi la sélection exclusive d'extension (.txt) ne fonctionne pas

Voila mon script:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
'Boite de dialogue sélectionner fichiers
Function GetFileNameDlg() 
GetFileNameDlg=CreateObject("WScript.Shell").Exec("mshta.exe ""about:<input type=file id=f accept=.txt><script language=""VBScript"">f.click():CreateObject(""Scripting.FileSystemObject"").GetStandardStream(1).WriteLine(f.value):close()</script>""").StdOut.ReadAll
End Function
 
'Selection exlusive de l'extension ".txt" dans la boite de dialogue de selection [accept=.txt]
'Recuperation de l'adresse du fichier
Msgbox GetFileNameDlg()
Merci d'avance