Comment recup un nom de fichier
TranKILL87
Messages postés
14
Date d'inscription
mercredi 1 juin 2005
Statut
Membre
Dernière intervention
30 mars 2006
-
2 juin 2005 à 10:35
BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 2 juin 2005 à 11:36
BasicInstinct Messages postés 1470 Date d'inscription mardi 5 février 2002 Statut Membre Dernière intervention 20 octobre 2014 - 2 juin 2005 à 11:36
A voir également:
- Comment recup un nom de fichier
- Fichier .ini - Conseils pratiques -Visual Basic / VB.NET
- Fichier class ✓ - Forum Java
- Vba récupérer nom fichier sans extension ✓ - Forum VBA Office (Excel, Word ...)
- Ouvrir un fichier java - Forum Java
- Verifier un nom de domaine - Forum PHP
5 réponses
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
2 juin 2005 à 11:04
2 juin 2005 à 11:04
lPath="c:\images\fr\test.gif"
nomFichierComplet=mid(lPath,InStrRev(lPath, "") + 1)
Extension=mid(lPath,InStrRev(lPath, ".") + 1)
BasicInstinct
nomFichierComplet=mid(lPath,InStrRev(lPath, "") + 1)
Extension=mid(lPath,InStrRev(lPath, ".") + 1)
BasicInstinct
cs_drahcir
Messages postés
745
Date d'inscription
mardi 30 novembre 2004
Statut
Membre
Dernière intervention
15 septembre 2009
4
2 juin 2005 à 11:12
2 juin 2005 à 11:12
Dim nomFichierComplet()
As
String
Dim nom
As
String
lPath = "c:\images\fr\test.gif"
nomFichierComplet = lPath.Split("")
nom = nomFichierComplet(nomFichierComplet.Length() - 1)
@+
As
String
Dim nom
As
String
lPath = "c:\images\fr\test.gif"
nomFichierComplet = lPath.Split("")
nom = nomFichierComplet(nomFichierComplet.Length() - 1)
@+
jpleroisse
Messages postés
1788
Date d'inscription
mardi 7 novembre 2000
Statut
Membre
Dernière intervention
11 mars 2006
27
2 juin 2005 à 11:13
2 juin 2005 à 11:13
Bonjour,
Private Sub Command1_Click()
Dim FileName As String
FileName = "c:\images\fr\test.gif"
MsgBox Mid(FileName, 14)
End Sub
jpleroisse
Private Sub Command1_Click()
Dim FileName As String
FileName = "c:\images\fr\test.gif"
MsgBox Mid(FileName, 14)
End Sub
jpleroisse
valtrase
Messages postés
937
Date d'inscription
lundi 19 janvier 2004
Statut
Membre
Dernière intervention
9 mai 2022
3
2 juin 2005 à 11:19
2 juin 2005 à 11:19
Hum ....... t'es sur de ton code Basic ?
lpath$ = "c:\images\fr\test.gif"
fic$ = Mid (lpath$, InStrRev(lpath$, "" ) + 1 )
MsgBox fic$
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
lpath$ = "c:\images\fr\test.gif"
fic$ = Mid (lpath$, InStrRev(lpath$, "" ) + 1 )
MsgBox fic$
Cordialement, Jean-Paul
______________________________________________________________________
Le Savoir n'a de valeur que s'il est partagé
Vous n’avez pas trouvé la réponse que vous recherchez ?
Posez votre question
BasicInstinct
Messages postés
1470
Date d'inscription
mardi 5 février 2002
Statut
Membre
Dernière intervention
20 octobre 2014
12
2 juin 2005 à 11:36
2 juin 2005 à 11:36
pas verifié, mais il me semble bien que ca va :)
BasicInstinct
BasicInstinct
