Nom de fichier sans extension

Soyez le premier à donner votre avis sur cette source.

Vue 4 159 fois - Téléchargée 243 fois

Description

Ce programme renvoie dans une textbox le nom de fichier sans extension. Gere plusieurs points.

Codes Sources

A voir également

Ajouter un commentaire

Commentaires

cyberlulu
Messages postés
62
Date d'inscription
dimanche 10 novembre 2002
Statut
Membre
Dernière intervention
26 juin 2008
-
Merci yoman64
Voilà ma source : http://forum.vbfrance.com/article.aspx?Val=8012
yoman64
Messages postés
962
Date d'inscription
samedi 19 janvier 2002
Statut
Membre
Dernière intervention
2 août 2010
-
Deja sur le site
7/10 a cause que c deja sur le site...
BlackCrystal
Messages postés
7
Date d'inscription
mardi 17 décembre 2002
Statut
Membre
Dernière intervention
17 juillet 2004
-
C'est vrai c'est plus rapide.
Mais c'est mes débuts sur ce site.
N'oublions pas de déclarer la variable
Dim Fichier1 As String
Renfield
Messages postés
17286
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
23 décembre 2019
60 -
oui , va pour l'aspect didactique de la chose , peut être aurais-tu pu mettre le code directement sur le site :

'Renvoie le nom de fichier et cherche le 1er point à partir de la droite
Pnt = InStrRev(nomFichier, ".")
'Retourne la chaîne en conservant le nom à gauche du 1er point
Fichier1$ = Left$(nomFichier, Pnt - 1)
'Affiche le nom de fichier sans extension
Text1.Text = Fichier1

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.