Discussion :

[ericboul]

Bonjour,

J'utilise Access 2007 et je veux permettre la sélection de fichiers avec un objet 'FileDialog' mais, je veux identifier tout fichier '.lnk' avec la propriété SelectedItems et je ne suis pas capable de le faire.

Malheureusement cette propriété me retourne la cible. Exemple: j'ai un fichier .lnk qui appelle MSACCESS.EXE. Et, le résultat est que j'ai le nom de l'exécutable au lieu d'avoir le nom du fichier .lnk.

J'aimerais savoir si il y a une solution à ce problème ou une autre façon de faire?

[Heureux-oli]

Salut,

Tu dois utiliser les filtres, mais on ne peut pas utiliser un système style

Code :

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

Not Like "*.lnk"

Tu dois lister les types de fichiers qui sont récupérables.

[ericboul]

Bonjour,

Je les ai utilisé les filtres mais, le champ 'Nom de fichier' permet d'inscrire '*.*' et cela permet donc de voir les fichiers de type '.lnk'. et de les sélectionner.

Je reviens alors à mon problème du début.

[Heureux-oli]

Tu peux toujours faire le test après sélection et tu recommence le choix si c'est un lnk.

[ericboul]

Où es-tu?

Tu n'as pas compris mon problème de départ.

Justement, je ne suis pas capable de voir si c'est un '.lnk' dans mes sélections...

[Heureux-oli]

Pour savoir si c'est un lnk, tu fais un simple test avec un Right().

Code :

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

1
2
3
IF Right(oDlg.SelectedItems(1), 3) = "lnk" Then
    ....
End If

[LedZeppII]

Bonsoir,

A mon avis ça doit pas être possible sur un raccourci avec FileDialog.

Avec GetOpenFileName de l'API on peut le faire (testé sur XP).
Voir la faq : Afficher la boîte de dialogue ouvrir afin de récupérer le nom et le chemin du fichier sélectionné

Ajouter cette déclaration de constante.

Code :

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

Const OFN_NODEREFERENCELINKS As Long = &H100000

Ajouter la constante à la ligne

Code :

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

    .flags = OFN_HIDEREADONLY  'Option de la boite de dialogue

ce qui donne :

Code :

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

    .flags = OFN_HIDEREADONLY Or OFN_NODEREFERENCELINKS 'Option de la boite de dialogue

A+

[ericboul]

Merci,

Cela fonction bien avec la fonction 'GetOpenFileName' et l'ajustement du paramètre '.flags'.