il faut travailler sur ta chaine de caractéres, a savoir détecter les "/". Je m'explique. Un chemin est fait de telle facçon :
[racine]:\{nom_1}\{nom_2}\{nom_3}
autrement dis les noms si tu remarque sont compris entre deux "\". tu détecte donc la 1er fois la racine "[lecteur]:\", pour détecter si le chemin saisie est valide !
enuite du détecte la position en partant de gauche, du premier caractére "\", en l'occurence, c'est 3. Ce chiffre sera toujours le même !
ensuite avec la fonction MID, tu va prendre chaque caratère et tu va les passer dans une condition. A savoir !
Code :
- for i = 1 to len(text1.text)
- a = mid(text1.text,i,1)
- if b = "\" OR i = len(text1.text) then c = c + 1
- if b <> "\" then
- b = b + a
- end if
- if c = 2 then
- MKDIR(b)
- b = ""
- c = 0
- end if
- next i
|
je ne sais pas si tu as compris le code. Pour faire simple, tu
- Détecte les caratères "\"
- Dés que tu en trouve 1 "c" = 1.
- En attendant les caractéres sont enregsitrer dans une autre variable "b"
- Dés que tu trouve un deuxiéme "\", c passe alors à 2
- le compteur "b", s'arrette.
- Tu créer alors ton répertoire, dont le nom sera b
- Tu remets les variables à 0 et "". NE pas oublier, sinon, erreur !!!
le code pendant ce temps continue et s'arretera tous seul, avec la création du dernier répetoire...Aprés tu peux l'adapter à savoir détecter s'il existe sur le disque,ect...
PS : ATTENTION A L'INITIALISATION DES VARIABLES QUE JE N'AI PAS MISE C DOIT EGALE A 0 ET UNIQUEMENT.
Message édité par macray le 01-08-2002 à 09:06:32
---------------
;) Bienvenue sur le site...:) http://perso.wanadoo.fr/rapport
FORUM HardWare.fr
