Probleme avec les répertoires et les chemins

TRASH52 Messages postés 44 Date d'inscription mardi 14 janvier 2003 Statut Membre Dernière intervention 3 décembre 2004 - 25 févr. 2003 à 23:04
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 - 25 févr. 2003 à 23:49
TRASH52 :big)
Je voudrais savoir comment faire pour remonter l'arborescence d'un fichier!
Pour entrer dans un dossier je me sers de chdir(nom_dossier)
mais pour faire l'operation inverse je ne sais pas!
Merci d'avance!!!

2 réponses

MrDogbert Messages postés 133 Date d'inscription jeudi 26 octobre 2000 Statut Membre Dernière intervention 20 juillet 2004 1
25 févr. 2003 à 23:35
private function RepertoireParent(chemin as string) as string
for n = len(chemin) to 1 step -1
if mid(chemin, n, 1) = "" then
RepertoireParent = left(chemin, n -1)
exit for
end if
next
end function

ou un truc dans le genre

MrDogbert
0
cs_rene38 Messages postés 1858 Date d'inscription samedi 29 juin 2002 Statut Membre Dernière intervention 17 octobre 2013 11
25 févr. 2003 à 23:49
Bonsoir.
Ou bien
ChDir("..") pour remonter d'un niveau
0
Rejoignez-nous