Discussion :

[castelom]

bonjour,je veux modifier ce code pour,quand qu'il ouvre seulement les fichier bin et sgn...j'ai faix tous mon posible et aucune resultat
svp aidez moi

Code :

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

1
2
3
4
5
6
7
8
9
10
11
Private Sub Command2_Click()
CD.ShowOpen
If CD.FileName = "" Then
Exit Sub
Else
Text2.Text = CD.FileName
Text1.Text = GetHEXfromFILE(CD.FileName, "16", 4)
Text6.Text = GetHEXfromFILE(CD.FileName, "1A", 4)
Text7.Text = GetHEXfromFILE(CD.FileName, "12", 4)
End If
End Sub

[ThierryAIM]

voir la propriété Filter du CommonDialog (si j'ai bien décodé la question .. )

[castelom]

oui mr je parle de commonDialog
j'ai ajouter ce code et il me donne une erreur

Code :

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

1
2
3
4
5
6
CommonDialog1.DialogTitle = "Icône du fichier"
    CommonDialog1.Filter = "Tous Les Fichiers (*.*)|*.*"
    CommonDialog1.FilterIndex = 1
    CommonDialog1.InitDir = App.Path
    CommonDialog1.FileName = ""
    CommonDialog1.ShowOpen

[castelom]

J'ai trouvé la solution moi meme
Merci