Afficher le nom d'un "dossier" dans une TextBox ?

**XpFive** · 02/06/2008, 20h34

Bonjours, je suis en trin de réaliser un logiciel :

Donc voici mon problème :
Comme vous le voyer dans le screen ci-dessus il y à 2 textbox.
Text1 (Textbox1) : C'est la ou il y à écrit "Nouveau Dossier",
Text2 (Textbox2) : C'est la ou il y à écrit la destination complète du dossier sélectionner dans "Dir1".

Je vous que dans ma 2eme Textbox (Text2) il y est écrit que le nom du dossier est non l'adresse complète vers le dossier !

Plus de précision si vous n'avez pas compris :
Comme vous avez remarqué dans "DIR1" j'ai sélectionner "BUREAU" comme destination est l'adresse vers le "BUREAU" apparait dans la 2eme TEXTBOX.
Est donc alors il apparait C:\Documents and Settings\antostyle1\Bureau,
mais moi je veut juste qu'il apparait "Bureau".

Merci de vos réponse

Bonne journée à tous !

Cordialement, Anthony,
MacroTech, 2008.

**SfJ5Rpw8** · 02/06/2008, 20h42

en utilisant des fonctions bien connues de manipulation de chaine de caractères

Mid, InStrRev ...

**ThierryAIM** · 02/06/2008, 21h55

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
Public Function ExtractLastDir(ByVal sFullPath As String) As String
Dim Splitf() As String
    If Right$(sFullPath, 1) = "\" Then sFullPath = Left$(sFullPath, Len(sFullPath) - 1)
    Splitf = Split(sFullPath, "\")
    ExtractLastDir = Splitf(UBound(Splitf))
End Function

**zazaraignée** · 03/06/2008, 01h32

Ça marche bien avec InStrRev et Right...

**ucfoutu** · 03/06/2008, 08h20

Bonjour,

mais moi je veut juste qu'il apparait "Bureau".

A moins que je n'aie rien compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text2.text = Dir1.Name

me parait convenir ...

**ThierryAIM** · 03/06/2008, 12h46

Envoyé par ucfoutu

A moins que je n'aie rien compris

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text2.text = Dir1.Name

me parait convenir ...

tu es sûr ?

**ucfoutu** · 03/06/2008, 13h00

Envoyé par ThierryAIM

tu es sûr ?

Bonjour, ThierryAIM,

ben non (trop vite répondu

)

ce sera donc en effet :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text2.text =  Mid(Dir1.Path, InstrRev(Dir1.Path, "\") + 1)

**XpFive** · 03/06/2008, 18h50

Merci beaucoup sa marche !

Ce code marche parfaitement :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

Text2.text =  Mid(Dir1.Path, InstrRev(Dir1.Path, "\") + 1)

Merci ucfoutu

**ucfoutu** · 03/06/2008, 18h57

Pas de quoi, mais c'est exactement le code auquel te conduisait zazaraignée !
Utiliser Mid à partir du dernier "\" + 1 ou Right jusqu'à la même position revient rigoureusement au même ...