Création de repertoire ? petit probleme !personne ne sait ?

Création de repertoire ? petit probleme !personne ne sait ? - VB/VBA/VBS - Programmation

Marsh Posté le 31-07-2002 à 20:42:08    

J'aimerais créer un repertoir  
comme celui  
c:\tata\coucouc\chacha
imaginons que c:\tata\coucouc\chachase trouve dans text2.text
quand je fais  
MKDIR text2.text
il ne me crée que le premier repertoire sois tata  
comment faire pour créer tout les repertoires
MErci
 :bounce:


Message édité par remixgame le 31-07-2002 à 21:50:11
Reply

Marsh Posté le 31-07-2002 à 20:42:08   

Reply

Marsh Posté le 31-07-2002 à 22:20:50    

personne n'est donc capable de repondre ?

Reply

Marsh Posté le 01-08-2002 à 09:02:21    

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 !
 

Code :
  1. left(text1.text,4)


 
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 :
  1. for i = 1 to len(text1.text)
  2. a = mid(text1.text,i,1)
  3. if b = "\" OR i = len(text1.text) then c = c + 1
  4. if b <> "\" then
  5. b = b + a
  6. end if
  7. if c = 2 then
  8. MKDIR(b)
  9. b = ""
  10. c = 0
  11. end if
  12. 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
Reply

Sujets relatifs:

Leave a Replay

Make sure you enter the(*)required information where indicate.HTML code is not allowed