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
    Homme Profil pro
    Technicien maintenance
    Inscrit en
    février 2014
    Messages
    37
    Détails du profil
    Informations personnelles :
    Sexe : Homme

    Informations professionnelles :
    Activité : Technicien maintenance
    Secteur : Industrie

    Informations forums :
    Inscription : février 2014
    Messages : 37
    Points : 41
    Points
    41
    Par défaut [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
    Avatar de ProgElecT
    Homme Profil pro
    Retraité
    Inscrit en
    décembre 2004
    Messages
    4 977
    Détails du profil
    Informations personnelles :
    Sexe : Homme
    Âge : 63
    Localisation : France, Haute Savoie (Rhône Alpes)

    Informations professionnelles :
    Activité : Retraité
    Secteur : Communication - Médias

    Informations forums :
    Inscription : décembre 2004
    Messages : 4 977
    Points : 11 550
    Points
    11 550
    Par défaut
    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
    ProgElecT
    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.
    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
    Avatar de omen999
    Profil pro
    Inscrit en
    février 2006
    Messages
    1 225
    Détails du profil
    Informations personnelles :
    Localisation : France

    Informations forums :
    Inscription : février 2006
    Messages : 1 225
    Points : 3 320
    Points
    3 320
    Par défaut
    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

Discussions similaires

  1. [Toutes versions] commande annulé n'annule pas + voir les raccourcies dans la boite de dialogue
    Par Noche dans le forum VBA Outlook
    Réponses: 4
    Dernier message: 14/06/2012, 11h52
  2. Réponses: 5
    Dernier message: 28/07/2009, 22h38
  3. [Access 2003]Boite de dialogue pour sélection de fichier
    Par L.Lemarchand dans le forum VBA Access
    Réponses: 5
    Dernier message: 03/09/2008, 16h44
  4. Réponses: 5
    Dernier message: 28/11/2005, 10h52
  5. gérer les jpg dans une fenetre directdraw???
    Par Anonymous dans le forum DirectX
    Réponses: 1
    Dernier message: 14/06/2002, 14h39

Partager

Partager
  • Envoyer la discussion sur Viadeo
  • Envoyer la discussion sur Twitter
  • Envoyer la discussion sur Google
  • Envoyer la discussion sur Facebook
  • Envoyer la discussion sur Digg
  • Envoyer la discussion sur Delicious
  • Envoyer la discussion sur MySpace
  • Envoyer la discussion sur Yahoo