Chemin fichier font

Salut,

Comment faire pour récupérer le chemin du fichier font sélectionneé dans le CommonDialog ?

jéjé

je ne sais pas ce que c'est le fichier font, mais voici pour paramétrer et sélectionner ds un commondialog :

' Attribue à CancelError la valeur True
CommonDialog1.CancelError = True

' Définit la propriété Flags
CommonDialog1.Flags = cdlOFNHideReadOnly

'ouverture sur C:
CommonDialog1.InitDir = "C:"

' Définit les filtres
CommonDialog1.Filter = "Tous les fichiers (*.*)|*.*|Fichiers texte" & _
"(*.txt)|*.txt|Fichiers batch (*.bat)|*.bat"

' Définit le filtre par défaut
CommonDialog1.FilterIndex = 2

' Affiche la boîte de dialogue Ouverture
CommonDialog1.ShowOpen

' nom du fichier sélectionné
nom_fic = CommonDialog1.FileName



~~~ NuNu ~~~

ca je sais faire, mais moi je veux récupérer le chemin du fichier font (Type de police (.ttf..)) quand le commondialog est ouvert avec CommonDialog1.ShowFont.

jéjé


-------------------------------
Réponse au message :
-------------------------------


je ne sais pas ce que c'est le fichier font, mais voici pour paramétrer et sélectionner ds un commondialog :

' Attribue à CancelError la valeur True
CommonDialog1.CancelError = True

' Définit la propriété Flags
CommonDialog1.Flags = cdlOFNHideReadOnly

'ouverture sur C:
CommonDialog1.InitDir = "C:"

' Définit les filtres
CommonDialog1.Filter = "Tous les fichiers (*.*)|*.*|Fichiers texte" & _
"(*.txt)|*.txt|Fichiers batch (*.bat)|*.bat"

' Définit le filtre par défaut
CommonDialog1.FilterIndex = 2

' Affiche la boîte de dialogue Ouverture
CommonDialog1.ShowOpen

' nom du fichier sélectionné
nom_fic = CommonDialog1.FileName



~~~ NuNu ~~~

est-ce que ça, ça peut te convenir:


'le filtre
CommonDialog1.Filter = "Fichiers font (*.ttf)|*.ttf"

'chemin complet
nom_fic = CommonDialog1.FileName

'chemin du rep contenant le fichier
chemin = Left(nom_fic, Len(nom_fic) - (Len(CommonDialog1.FileTitle) + 1))


NuNu.

je ne peux pas, lorsque commondialog est ouvert en showfont, il affiche la boite de dialogue de police.
moi je peux recuperer le nom de la police, mais je voudrais recuperer le fichier .ttf de la police selectionne pour pouvoir le copier.

jéjé


-------------------------------
Réponse au message :
-------------------------------

est-ce que ça, ça peut te convenir:


'le filtre
CommonDialog1.Filter = "Fichiers font (*.ttf)|*.ttf"

'chemin complet
nom_fic = CommonDialog1.FileName

'chemin du rep contenant le fichier
chemin = Left(nom_fic, Len(nom_fic) - (Len(CommonDialog1.FileTitle) + 1))


NuNu.

salut ton bleme remonte a vieux mais est ce que tu as trouvé la solution car j'ai le meme soucis :

http://www.vbfrance.com/infomsg_LIEN-FICHIER-POLICE_770081.aspx#6

J'espere que oui
Merci d'avance