CALCULER LE RÉPERTOIR PRÉCÉDANT
cs_joker
Messages postés
49
Date d'inscription
vendredi 11 janvier 2002
Statut
Membre
Dernière intervention
20 juillet 2004
-
31 janv. 2002 à 09:12
coolcrash Messages postés 24 Date d'inscription dimanche 3 décembre 2000 Statut Membre Dernière intervention 3 février 2003 - 1 févr. 2002 à 17:15
coolcrash Messages postés 24 Date d'inscription dimanche 3 décembre 2000 Statut Membre Dernière intervention 3 février 2003 - 1 févr. 2002 à 17:15
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.
https://codes-sources.commentcamarche.net/source/2518-calculer-le-repertoir-precedant
https://codes-sources.commentcamarche.net/source/2518-calculer-le-repertoir-precedant
1 févr. 2002 à 17:15
je l'utilise pour calculer le repertoire précédant dans un client ftp que je suis en train de développer
je l'ai pas tester avec des "" si tu me dit que sa ne fonctionne pas avec c'é possible
31 janv. 2002 à 09:15
c normal sur ce site ?? ou g un souci étrange ?
désolé pour la quantité de messages inutiles ;-)
31 janv. 2002 à 09:14
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
31 janv. 2002 à 09:13
je viens d'écrire une ligne de backslash, mais ça marche pas !!???? :-(
31 janv. 2002 à 09:12
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