Nom du dernier répertoire d'un dossier - y'a plus simple ?

[Ar-S]

Salut à tous,

Pour les besoin d'un de mes soft, je dois récupérer le nom du dernier répertoire d'un chemin.
Y'a t il plus simple que le code suivant pour y arriver ?

Code : Tout sélectionner

;Nom du dernier dossier par Ar-S / 2009 - PB 4.30

Repertoire$="c:\mon repertoire\teste\rep_a_afficher"
pos=1
NumCar=Len(Repertoire$)
Repeat
  car$=Right(Repertoire$,pos)
  If Left(car$,1)<>"\"
    pos=pos+1
    car$=Right(Repertoire$,pos)
  Else
    Debug "Car : "+car$
    Debug "Pos : "+Str(pos)
  EndIf 
Until Left(car$,1)="\"
DernierDossier$=Right(car$,pos-1)

MessageRequester("Dernier dossier du chemin","Nom du dernier dossier du répertoire "+Repertoire$+" : "+DernierDossier$)
End

[lionel_om]

Oui il y a plus simple:

Code : Tout sélectionner

Debug StringField(Repertoire$, CountString(Repertoire$, "\")+1, "\")

/Liå

[Fred]

Essaye avec un Stringfield(a$, "\", CountString("\")), ca devrait le faire.

ps: trop lent

[Ar-S]

Argg je suis humilié
Le pire c'est que je me suis creusé pour faire mon code

Merci en tout cas