Nom du dernier répertoire d'un dossier - y'a plus simple ?
Publié : ven. 30/oct./2009 14:32
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 ?
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
