Dossier parentRésolu

Question

Voila ma question peu paraitre extremement simple mais j'ai toujour quelque probl&#233;me avec les chaines de charact&#233;re. Donc voila j'ai un chemin vers un dossier, exemple :

C:\windows\system32\

et je voudrais enlever le dernier dossier pour avoir le chemin du dossier parent qui donnera

C:\Windows\

bien entendu le chemin peu varier il est donc inutile d'utiliser :

Chemin =  C:\windows\system32\
Parent =  left(Chemin, 11)

je penser localiser le premier slash en partan de la droite et effacer ensuite tou ce qu'il y avai a droite mais je ne sais pas comme ecrir &#231;a, surment avec une fonction de recherche de' charact&#233;re, bref voila je croi avoir fini de poser ma question alors, bonne chance messieurs

Merci d'avance

cs_MasterHack · Accepted Answer

voila deux methodes pour le mem resultat mais je prefere celui de Gobillot.ciao

Life is short...Learn more Copy Rights <> Rights to Copy

Gobillot · Answer

Dim chemin As String

    Dim parent As String

    

    chemin = "C:\windows\system32"

    

    parent = Left$(chemin, InStrRev(chemin, "", Len(chemin) - 1))

    MsgBox parent


Daniel

cs_MasterHack · Answer

salut voici une fonction : Function DossierParent(Chemin As String) As String Dim tb() As String Dim nbrcoup As IntegerIf Right(Chemin, 1) "" Then Chemin Left(Chemin, Len(Chemin) - 1) tb() = Split(Chemin, "") nbrcoup = UBound(tb) For i = 0 To nbrcoup - 1 DossierParent = DossierParent + tb(i) + "" Next End Function a utliser de la maniere suivante cible=DossierParent("c:\windows\system32")

Life is short...Learn more Copy Rights <> Rights to Copy

nycoss · Answer

OK OK merci les copains pour vos reponse, sa me convient a la perfection ;)

Dossier parent

4 réponses

Discussions similaires