Utilisation winCmd - ouverture de fichierRésolu

Question

Bonjour, j'utilise le common dialog pour sélectionner un fichier à ouvrir mais je ne sais plus comment rajouter des filtres. Voici mon code :

Private Sub cmdBrowseEntry_Click() ' Pacourir les répertoires pour accéder au fichier .csv On Error GoTo ErrorFile winCmd.CancelError = True winCmd.InitDir = "c:" winCmd.Filter = "CATIA Part File (.CATPart)|*.CATPart; CATIA Product File (.CATProduct)|*.CATProduct" winCmd.FilterIndex = 1 winCmd.Action = 1 winCmd.ShowOpen strFileEntry = winCmd.FileName If winCmd.FileName <> "Null" Then ' Permet de modifier la valeur Text du champ de texte. txtFullNAme.Text = strFileEntry 'indique le chemin complet 'txtFullNAme.BackColor = &H80000005 'change la couleur du label 'affichage du bouton Start cmdStart.Visible = True ' récupération du nom de fichier ------------------------------ Call funStringMixer(strFileEntry, False, "/") Else End If Exit SubErrorFile: MsgBox "Please select a CATIA component (Part or Product)", vbCritical, "!STOP!" End Sub

Ce que j'ai fait ici ne fonctionne pas correctement Si vous avez une idée. Cordialement, Paloma

CATDEV · Accepted Answer

Cool j'ai trouvé :)

' ***** PART or ASSEMBLY Selection ************************************************************************************
Private Sub cmdBrowseEntry_Click()
' Pacourir les répertoires pour accéder au fichier .csv
    On Error GoTo ErrorFile
    winCmd.CancelError = True
    winCmd.InitDir = "c:"
    winCmd.Filter = "Part (.CATPart)|*.CATPart|Product (.CATProduct)|*.CATProduct"
    winCmd.FilterIndex = 1
    winCmd.Action = 1
    winCmd.ShowOpen
        
        strFileEntry = winCmd.FileName
    
    If winCmd.FileName <> "Null" Then
        
        ' Permet de modifier la valeur Text du champ de texte.
            txtFullNAme.Text = strFileEntry 'indique le chemin complet
            'txtFullNAme.BackColor = &H80000005  'change la couleur du label
    
            'affichage du bouton Start
                cmdStart.Visible = True
            ' récupération du nom de fichier ------------------------------


            Call funStringMixer(strFileEntry, False, "")
            
        Else
        
    End If
    
    Exit Sub


ErrorFile: MsgBox "Please select a CATIA component (Part or Product)", vbCritical, "!STOP!"


End Sub

Il faillait mettre un | et non , ni ;

Merci c'est résolu.

Cordialement,
Paloma

drikce06 · Answer

Salut! exemple:
"Bitmap Windows (*.bmp)| *.bmp,Format d'échange de fichiers GIF (*.gif)|*.gif,Format d'échange de fichiers JPG (*.jpg)| *.jpg"

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Donc apparement ce serai une , à la place de ;

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

CATDEV · Answer

Merci Drikce 06

Encore une fois c'est toi qui répond aux questions 

Dans mon cas, :

winCmd.Filter ="CATIA Part File (.CATPart)|*.CATPart, CATIA Product File (.CATProduct)|*.CATProduct"

Il m'affiche dans les filtres:
CATIA Part File (.CATPart)
*.CATProduct

comprend pas ?

drikce06 · Answer

Et avec le ; ça fait quoi?

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Re:

"TopSolid'Draft - Mise en plan (*.dft)|*.dft|TopSolid'Design - Conception (*.top)|*.top"







 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

drikce06 · Answer

Ha! J'arrive trop tard! C'est cool! Mets réponse acceptée sur ta réponse (j'adore ça reponse acceptée sur ta réponse à ta question)! Ca prouve que tu cherches au moins en attendant qu'on réponde à ta question! C'est sympa!
@+, et bonne prog!

 Drikce 06

Si la réponse vous convient: Réponse acceptée. Si la réponse vous convient pas:

Utilisation winCmd - ouverture de fichier

7 réponses

Votre réponse

Discussions similaires