Accueil > Forum > > > > Comment récupérer l'extension d'un fichier ?
 Comment récupérer l'extension d'un fichier ?
mercredi 10 novembre 2004 à 09:43:00 |
Comment récupérer l'extension d'un fichier ?
herve83
|
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  Merci de votre aide.....  Hervé |
|
mercredi 10 novembre 2004 à 09:53:41 |
Re : Comment récupérer l'extension d'un fichier ?
jrivet
|
Salut, Essaie ca (peu etre que ca t aidera)
Dim st As String
st = "fiscal.1234"
MsgBox Mid(st, InStr(1, st, ".") + 1)
|
@+ Julien ----------------------------------------------------------- Essai ca sinon on trouvera autre chose  ----------------------------------------------------------- |
|
mercredi 10 novembre 2004 à 09:55:54 |
Re : Comment récupérer l'extension d'un fichier ?
TheLordFreddy
|
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...
|
|
mercredi 10 novembre 2004 à 10:22:26 |
Re : Comment récupérer l'extension d'un fichier ?
Neo.balastik
|
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
|
|
mercredi 10 novembre 2004 à 10:26:18 |
Re : Comment récupérer l'extension d'un fichier ?
jrivet
|
-> 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 ----------------------------------------------------------- Essai ca sinon on trouvera autre chose ----------------------------------------------------------- |
|
mercredi 10 novembre 2004 à 10:30:33 |
Re : Comment récupérer l'extension d'un fichier ?
Neo.balastik
|
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
|
|
mercredi 10 novembre 2004 à 11:15:01 |
Re : Comment récupérer l'extension d'un fichier ?
herve83
|
Réponse acceptée !
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...
|
|
mercredi 10 novembre 2004 à 12:38:51 |
Re : Comment récupérer l'extension d'un fichier ?
Creat
|
Il y a un autre exeption, il existe des fichiers sans extension
|
|
mercredi 10 novembre 2004 à 13:38:04 |
Re : Comment récupérer l'extension d'un fichier ?
herve83
|
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é
|
|
mercredi 10 novembre 2004 à 13:46:23 |
Re : Comment récupérer l'extension d'un fichier ?
Neo.balastik
|
Creat -> dans ma source, il faudra juste vérifier si un point ( . ) existe et retourner une chaine vide le cas échéant.
Guy
|
|
Cette discussion est classée dans : fichier, récupérer, type, extension
 Répondre à ce message
 Sujets en rapport avec ce message
Récupérer l'icone d'un fichier quelque soit son type [ par ChBaud ]
Je cherche encore et encore un moyen de récupérer l'icone d'un fichier (quelque soit le type de fichier) pour la réutiliser dans un controle ListView
récupérer l'extension d'un nom de fichier [ par bigup ]
pour pouvoir pour en fait pouvoir faire un test ( dans mon cas, savoir si c'est un son wav ou vidéo avi pour pouvoir le periph correspondant)
récupérer l'extension d'un nom de fichier [ par bigup ]
pour pouvoir pour en fait pouvoir faire un test ( dans mon cas, savoir si c'est un son wav ou vidéo avi pour pouvoir le periph correspondant)
recherche fichiers ds chemin conserve que type precis [ par gnosis35 ]
alors voilà le pb :j'aimerai en connaissant le chemin du disquerechercher dans ce chemin l'existance d'un fichier d'une extension precise contenu dans
récupérer le commentaire d'un fichier [ par lamineniang ]
Bonjour Je souhaiterais récupérer le commentaire d'un fichier qui se trouve dans ses propriétés. Je sais qu'il très simple de récupérer le type, le no
récupérer l'extension d'un fichier [ par allthew3 ]
Bonjour à tous,j'aimerais récupérer l'extansion d'un fichier dans une chaine contenant pour l'exemple :C:\Windows\notepad.exe(récupérer donc dans cet
Créer mon type de fichier [ par alex_sex ]
Bonjour, voila ce que je cherche a faire c'est créé un fichier avec mon extention qui sera lisible avec mon programme, si vous avez des infos ou un tu
etablir une relation entre 2 tables avec access et SQL [ par anb ]
Bonjour mes amis. je suis entrain de créer une relation entre la table Fichier et Type en utilisant access 2000 comme suit:Fichier(Code_F,réf,no
Creer sa propre Extension [ par ThoT49 ]
Bonjour, j'aimerais savoir si c'est possible de creer sa propre extension avec vb2005.En faite je voudrais, lorsque j'enregistre un fichier sur le dis
filtrer les extension [ par sephiroth27 ]
bonjour,voila je voudrai m'inspiré de ce code qui me referenci tout les fichier et je voudrai filtrer par extension les fichier.Sub AfficheListeFichie
 Livres en rapport
|
Derniers Blogs
 XNA IS DEAD!XNA IS DEAD! par richardc
Depuis la semaine dernière (et grâce aux TechDays 2012), je me penche activement sur la nouvelle version de Windows, aka Windows 8. Vous me direz, il était temps puisque la première preview date de Septembre dernier.
OK. Remarquez, on n'en est qu'aux...
Cliquez pour lire la suite de l'article par richardc TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 !TECHDAYS PARIS 2012 : WINDOWS SERVER "8" QUOI DE 9 ! par ROMELARD Fabrice
Speakers: Fabrice Meillon et Stanislas Quastana Cette session est basée entièrement sur celle donnée lors de la BUILD cet hiver. Il n'y a pas d'ajout d'information en rapport avec cet évènement passé. Windows 8 Server sera intégralem...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE)[HTML5] AUTOUR DU W3C : NOUVEAUX STANDARDS ET WEB MOBILE (LILLE) par Gio
Je m'y prends un peu tard je sais, mais bon je suis développeur web et donc hyper fainéant ! Toujours dans le cadre des technologies émergentes, ici HTML5, parce qu'on aime HTML5 chez Wyg , nous seront présent, le vieux ( Aurélien V.) et moi, pour pr...
Cliquez pour lire la suite de l'article par Gio [WP7] DYNAMICALLY CHANGE STARTUP PAGE[WP7] DYNAMICALLY CHANGE STARTUP PAGE par KooKiz
Let's say that you want to allow the user to customize the startup page of your application. You can easily change the startup page by editing the 'NavigationPage' attribute in the manifest file. But the manifest cannot be modified once the applicatio...
Cliquez pour lire la suite de l'article par KooKiz
Logiciels
 DocTranslate (V3.1.0.0)DOCTRANSLATE (V3.1.0.0)DocTranslate est un traducteur de document Microsoft Word, PowerPoint et Excel. Il permet d'autom... Cliquez pour télécharger DocTranslate Tribler (2012)TRIBLER (2012)Tribler est un client pair à pair (P2P/Peer-to-Peer) open source avec la capacité de regarder des... Cliquez pour télécharger Tribler OneSwarm (2012)ONESWARM (2012)Le peer-to-peer qui protège votre vie privée, c'est OneSwarm.
Ce logiciel de peer-to-peer crypté... Cliquez pour télécharger OneSwarm PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V8.4)PONAMEDIA TV DEVIENS HELLLOOO FLASH
LA TV SUR VOTRE ORDINATEUR.
Toute une plateforme Multi... Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO Academy System (17.2.1.0)ACADEMY SYSTEM (17.2.1.0)Logiciel de gestion des établissements.
- élèves/étudiants (inscription, dossier, absence...)
-... Cliquez pour télécharger Academy System
|