probleme pour avoir le chemin d un repertoire

Question

bonjour. voila j aimerais savoir si il etait possible de suprimer un bou d un texte dans un textbox. je m explique. dans un textbox je vais avoir le chemin menant a un dossier (par exemple:C:\Program Files\QCM\QCM.exe) et j aimerais enlever par code le \QCM.exe pour avoir le repertoire. ou alors existe t il un moyen pour avoir le repertoire. merci beaucoup

nhervagault · Answer

Salut



VB6

repertoire = Mid(path, 1, InStrRev(path, "", , vbTextCompare) - 1)



Bonne continuation

Molenn · Answer

Tout dépend de la façon dont est alimentée ta TextBox.

Si le chemin qui s'affiche est marqué par une commande du style :
Application.fullPathName

Il suffit de prendre la propriété Application.Path qui donne le chemin sans le nom du répertoire (.FullPathName donne le chemin et le nom du fichier, .Name que le nom du fichier)

Si c'est alimenté d'une autre façon, voire manuellement.
On peut utiliser un code de ce type :

'Définition des variables
Dim Temp As String
Dim Position As Integer
Dim SauvePosition As Integer
Position = 1
  
'Récupération du chemin complet
Temp = TextBox.text
  
'Cherche la position du séparateur
Do
   Position = InStr(Position, Temp, "", 1)
   If Position = 0 Then
      Exit Do
   End If
   SauvePosition = Position
   Position = Position + 1
Loop
  
'Affichage du chemin sans le nom de fichier
TextBox.txt = Left(Temp, SauvePosition)

Molenn.

nhervagault · Answer

Salut Molenn



PAs besoin de boucle, lent 



InStrRev Permet de prendre la chaine a partir de la fin

Premier caractere a partir de la fin.





Voila

Molenn · Answer

Rha !! Je savais que cette commande existait, mais impossible de la retrouver ! C'est pourquoi je me suis résolue à utiliser la boucle.

Je me coucherai moins bête ce soir.
Sois en remercié ^^

mythic_kruger · Answer

Il y avait aussi le vieux

repertoire=replace("\QCM.exe","")

nhervagault · Answer

Oui tout a fait,

Mais la g&#233;n&#233;ricit&#233; de ton code = 0

Car si tu ne connais pas le nom de l'exe tu seras un peu bloqu&#233; ;-)

Probleme pour avoir le chemin d un repertoire

6 réponses

Discussions similaires