Navigation

Inscrivez-vous gratuitement
pour pouvoir participer, suivre les réponses en temps réel, voter pour les messages, poser vos propres questions et recevoir la newsletter

  1. #1
    Membre du Club
    [VBScript] Gérer les cancel dans la boite de dialogue de sélection de fichiers.
    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

  2. #2
    Rédacteur/Modérateur

    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
    Soyez sympa, pensez -y
    Balises[CODE]...[/CODE]
    Balises[CODE=NomDuLangage]...[/CODE] quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Balises[C]...[/C] code intégré dans une phrase.
    Balises[C=NomDuLangage]...[/C] code intégré dans une phrase quand vous mettez du code d'un autre langage que celui du forum ou vous postez.
    Le bouton en fin de discussion, quand vous avez obtenu l'aide attendue.
    ......... et pourquoi pas, pour remercier, un pour celui/ceux qui vous ont dépannés.

  3. #3
    Rédacteur

    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"
    nomen omen, nemo non omen - Consultez la FAQ VBScript et les cours et tutoriels VBScript
    le plus terrible lorsqu'une voiture renverse un piéton, c'est que ce sont les freins qui hurlent. (ramón)
    pas de questions techniques par mp