[VBScript] Gérer les cancel dans la boite de dialogue de sélection de fichiers.

Version imprimable

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

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

Voila mon script:
Code:

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 :applo:

Salut

Peut être cette solution

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
Reponse = GetFileNameDlg()
If len(Reponse) <= 2 Then
        MsgBox "Bouton Cancel ou fermeture de la Bt. de dialogue"
        Else
        MsgBox "Bouton pas Cancel"  & vbNewLine & Reponse
        TypeF =  Right(Reponse,5)
        TypeF = left(TypeF,3)
        If Lcase(TypeF)="txt" Then
                MsgBox "Le fichier est bien de type .txt"'
        Else
                MsgBox "Le fichier de n'est pas de type .txt"
        End If
End If

02/11/2019, 15h32
omen999

bonjour,

Citation:

et aussi la sélection exclusive d'extension (.txt) ne fonctionne pas

peut-être en utilisant la bonne fonction... :roll:

les 3 variantes de la fonction renvoient zéro quand l'utilisateur annule l'opération avec "Cancel" ou "Esc"

par ailleurs, ne pas oublier que la syntaxe de sInitDir est un peu particulière : la chaine doit se terminer par "\*.*txt"