NOM DE FICHIER SANS EXTENSION
Renfield
Messages postés
17287
Date d'inscription
mercredi 2 janvier 2002
Statut
Modérateur
Dernière intervention
27 septembre 2021
-
23 mai 2003 à 14:00
cyberlulu Messages postés 62 Date d'inscription dimanche 10 novembre 2002 Statut Membre Dernière intervention 26 juin 2008 - 24 mai 2003 à 07:48
cyberlulu Messages postés 62 Date d'inscription dimanche 10 novembre 2002 Statut Membre Dernière intervention 26 juin 2008 - 24 mai 2003 à 07:48
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/7203-nom-de-fichier-sans-extension
https://codes-sources.commentcamarche.net/source/7203-nom-de-fichier-sans-extension
24 mai 2003 à 07:48
Voilà ma source : http://forum.vbfrance.com/article.aspx?Val=8012
23 mai 2003 à 21:46
7/10 a cause que c deja sur le site...
23 mai 2003 à 17:02
Mais c'est mes débuts sur ce site.
N'oublions pas de déclarer la variable
Dim Fichier1 As String
23 mai 2003 à 14:00
'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