RÉCUPÉRER L'EXTENTION D'UN FICHIER
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
28 févr. 2007 à 09:00
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 28 févr. 2007 à 10:28
Renfield Messages postés 17287 Date d'inscription mercredi 2 janvier 2002 Statut Modérateur Dernière intervention 27 septembre 2021 - 28 févr. 2007 à 10:28
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/41668-recuperer-l-extention-d-un-fichier
https://codes-sources.commentcamarche.net/source/41668-recuperer-l-extention-d-un-fichier
28 févr. 2007 à 10:28
i non déclaré
la variable txt qui sort de nulle part :
Mid$(txt,
(devrait être Path)
et ca plante si l'on n'a pas d'extension a extraire...
Avec InstrRev, tu pourrais faire :
Function getExtention(path As String)
Dim i As Long
i = InStrRev(path, ".")
If i Then
getExtention = Mid$(path, i + 1)
End If
End Function
concernant le Snippet de PCPT, il empeche de récuperer l'extension de 'a.h', du fait du
If LenB(sUrlOrFile) > 8 Then
...
28 févr. 2007 à 10:18
Romagny13 : c'est une "source" VB6, pas DotNet.
CrazyCode : désolé mais ta source ne fonctionne pas..
j'ai une erreur. De plus, ce n'est pas une source mais "un boput de code" (snippet) déjà donné par PCPT -> http://www.codyx.org/snippet_obtenir-extension-document-depuis-url-ou-uri_166.aspx
... et qui fonctionne bien
++
28 févr. 2007 à 09:52
bon aurevoir ?
28 févr. 2007 à 09:00