CALCULER LE RÉPERTOIR PRÉCÉDANT

Commentaire de joker le 31/01/2002 09:12:07

je suppose que text1 et text2 sont des textbox, en fait tu fais une recherche de caractère dans une chaine, en partant de la fin ...
pourquoi pas, mais ...
... le séparateur de répertoire, c'est un backslash ... pas /, parce que là ton code plante !
Même si tu mets le bon signe, ça plante si le signe n'est pas dans la chaine ou si la chaine est vide (donc pas de signe non plus).

J'essaierai plutot

Private Sub Command1_Click()
Dim iCpt As Integer
For iCpt = Len(Text1.Text) To 1 Step -1
   If Mid(Text1.Text, iCpt, 1) = "" Then Exit For
Next iCpt
Text2.Text = Mid(Text1.Text, 1, iCpt) 'ou iCpt - 1 pour ne pas avoir  à la fin
End Sub

Commentaire de joker le 31/01/2002 09:14:21

je recommence
Private Sub Command1_Click()
Dim iCpt As Integer
For iCpt = Len(Text1.Text) To 1 Step -1
   If Mid(Text1.Text, iCpt, 1) = "\" Then Exit For
Next iCpt
Text2.Text = Mid(Text1.Text, 1, iCpt) 'ou iCpt - 1 pour ne pas avoir  à la fin
End Sub