Afficher la fin d'un texteRésolu

Question

Bonjour a tous,

Je cherche comment affficher la fin d'une adresse de fichier (en fait j'ai juste besoin du nom de ce fichier.
Par exemple j'ai:
C:\Documents and Settings\Moi\Bureau\...\ Calendrier 2008.xls
et je cherche donc  a récupérer uniquement "Calendrier 2008"sachant que je ne peu utiliser la commande mid car la taille de l'adresse est variable.

Si quelqu'un a une idée 

Merci

pneau · Accepted Answer

salut
essai de creer une variable tableau de caractères...
puis, alimente la avec un split de ta chaine
puis, le dernier element de ce tableau contient le nom du fichier

Ex :
dim tblString() as string
dim monfichier as string
'alimentation du tableau en découpant la chaine avec séparateur ""
tblstring = split("C:\Documents and Settings\Moi\Bureau\...\ Calendrier 2008.xls","")
'récupération du dernier élément
monfichier = tblstring(ubound(tblstring))

cordialement

Pat

 Don't Worry , Be Happy 

<hr />lorsque le problème est résolu, pensez Réponse Acceptée

jmfmarques · Answer

Bonjour,

InstrRev sur ""


puis instr sur "."

pneau · Answer

salut jmfmarques,
bien joué... je ne penses jamais à instrrev...

thank's
Pat

 Don't Worry , Be Happy 

<hr />lorsque le problème est résolu, pensez Réponse Acceptée

Drake59730 · Answer

Merci,
J'ai essayé ta solution Pat et c'est tout simplement NIKEL!!!

Grand merci à vous deux

Ciao

Afficher la fin d'un texte

4 réponses

Votre réponse

Discussions similaires