Discussion :

[positrons]

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

[ProgElecT]

Salut

Peut être cette solution

Code :

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

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

[omen999]

bonjour,

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

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

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"