Comment récupérer l'extension d'un fichier ?Résolu

Question

Bonjour,

j'ai fait une petite appli qui sauvegarde des données dans un fichier du type justif fiscal.1234 ou 1234 représente des années.

souhaitant pouvoir imprimer ces fichiers, je souhaiterai récupérer l'extension (année) pour proposer une liste de choix a l'utilisateur, apres avoir bien sur vérifié la présence d'au moins 1 fichier de ce type.

Comment puis je faire ceci  :question)   :question) 

Merci de votre aide.....  :big) 

Hervé

cs_herve83 · Accepted Answer

en tournant et retournant ce que vous m'avez dit, j'ai trouvé cela :

Dim F As String
Dim ann
F = Dir(App.Path & "\DATA\ARCHIVES\justif fiscal.*")
While F <> ""
    ann = Right(F, 4)
    Me.Combo4.AddItem ann
    F = Dir
Wend

ainsi, j'arrive a récupérer dans un combo les années possibles  puis avec un bouton command je fais l'impression...

bien sur, le cas ou fiscal.1234.doc existe n'est pas traité, mais mon appli ne crée que des fiscal.1234 donc .... ;-)

merci de votre aide...

jrivet · Answer

Salut,

Essaie ca (peu etre que ca t aidera)


Dim st As String
st = "fiscal.1234"
MsgBox Mid(st, InStr(1, st, ".") + 1)

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

TheLordFreddy · Answer

slt,
utilise un aussi un FileListBox
pour récuperer tes fichiers
dans la propriété path tu met le chemin du répertoire ou ils se trouvent
-------------------------------------------
Ne vous fiez pas à l'apparence...

Neo.balastik · Answer

jrivet -> je ne suis pas d'accord avec toi.

Si mon fichier est ainsi :  fiscal.1234.doc, c'est 1234.doc qui sera considéré et non 'doc' !!!  Donc problème.  Et le cas que j'expose n'est pas isolé.  C'est même très fréquent.

Solution plus efficace considérant ce cas :

Private Sub Command1_Click()

    Dim st As String
    st = "fiscal.1234.doc"
    MsgBox getFileExtension(st)

End Sub

Public Function getFileExtension(FileName As String) As String

 getFileExtension = Mid$(FileName, InStrRev(FileName, ".") + 1)

End Function

Guy

jrivet · Answer

-> Neo.balastik

Effectivement tu as tout a fait raison, je n avais pas penser au cas ou il a 2 points dans le nom du fichier.

Desole pour la fausse solution Herve83

Merci pour de m avoir montrer l erreur  ;) 

@+
Julien
-----------------------------------------------------------
 :big)  Essai ca sinon on trouvera autre chose  ;) 
-----------------------------------------------------------

Neo.balastik · Answer

Pas de quoi ;O)  Cela m'est bien sur arrivé aussi...  C'est le genre de cas qui n'existait pas avant l'arrivée de WIN95.

Guy

cs_Creat · Answer

Il y a un autre exeption, il existe des fichiers sans extension

cs_herve83 · Answer

lol!!

ben là, je voulais un code pour mon appli, et celui là marche tres bien...

etant debutant, je ne me lancerai donc pas dans une discussion trop technique...

merci de votre aide
Hervé

Neo.balastik · Answer

Creat -> dans ma source, il faudra juste vérifier si un point ( . ) existe et retourner une chaine vide le cas échéant.

Guy

crenaud76 · Answer

Neo.balastik < Et il se passe quoi si le '.' fait partit du non d'un sous-répertoire, et pas du nom du fichier ???. Il faudrait s'assurer que le '.' est bien à droite du dernier '\' s'il y en a un !!

Christophe R.

Neo.balastik · Answer

Mon code considère tjs le point le plus à droite...
Faut lire entre les lignes ;-)

crenaud76 · Answer

Et c'est bien ce que je lui reproche !!! Si lke chemin complet du fichier est "c:\mon.Rep\Monfichier", to code va removyer comme extension "Rep\Monfichier", alors que ce fichier n'a pas d'extension !!!

Christophe R.

cs_herve83 · Answer

ben dis donc...

j'ai déja du mal a faire les lignes, alors s'il faut lire entre les lignes...

Je vous propose donc de continuer si vous voulez, mais avec du code pour etre concret...

Hervé

crenaud76 · Answer

Public Function GetFileExtension(byval Filename as String)
Dim i as Long, J as Long
 i = instrrev(filename,".")
if i = 0 then 
  getFileextension = "" 
else
  j = instrrev(filename,"")
  if j < i then 
   getfileextension = right$(filename,len(filename)-i)
  else
   getfileextension  =""
  end if
end if
End function

Christophe R.

Neo.balastik · Answer

crenaud76 > En ce qui me concerne, la question initiale portait sur un nom de fichier et non le répertoire compris.  Donc je n'ai bien entendu pas considérer la Path.  Ceci dit tu as entierement raison si l'on doit considérer le Path.

Comment récupérer l'extension d'un fichier ?

15 réponses

Discussions similaires