Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Staple1600

XLDnaute Barbatruc

• 18 Mai 2010

• #2

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

message édité

 

Dernière édition: 14 Décembre 2010

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 18 Mai 2010

• #3

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Merci JM.

Je te reconnais bien là dans ton Art à pousser les néophytes
comme moi à trouver par eux même. N'est-il pas? 🙂

En incorporant ta méthode à mon exemple, il y a bien aussi
création du dossier…. Mais dans le Path; et pas dans les sous-dossiers
comme je cherche à le faire.

Peut-être n'ais-je pas tout compris. Je ne suis pas "Pro" comme tu le sais 🙄

Amicalement, et Merci d'avoir regardé.
Encore plus si tu m'expliques.

A quand tu le voudras et en auras le temps.

Yann

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mai 2010

• #4

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

message édité

 

Dernière édition: 14 Décembre 2010

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 18 Mai 2010

• #5

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Re JM.

Pour info:

Lors d'un précédent Fil que j'ai créé, j'ai fait part de mes soucis
avec mes fenêtres VBA. (Ce n'est pas résolu).
"F1", sur les mots du plus ordinaire d'un code me livre une page blanche.

Je suis, par conséquent, un peu limité dans mes recherches.
Il ne me reste donc qu'à fouiner avec Google

Pourtant, je reste persuadé qu'il n'y a qu'à bien écrire le "MkDir",
mais je n'y arrive pas ………. D'où ma demande d'aide.

Yann

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 18 Mai 2010

• #6

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

O.K. Staple1600 !

mais plutôt que j'espère ainsi (vœu pieux) voir diminuer les questions posées sur XLD pour la nième, nième, .... nième fois.

Cliquez pour agrandir...

Merci de ne plus Jamais me répondre.

Respectueusement au regard de ce que tu sais faire.

Yann

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 18 Mai 2010

• #7

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Re


message édité ( envoyé en MP a l'intéressé)

 

Dernière édition: 14 Décembre 2010

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 18 Mai 2010

• #8

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Bonsoir,

Code:

For Each Element In DOSSIERS_EXISTANTS.Items
        If Element.isfolder = True Then
            MkDir Element.Path & "\TRUC"
        L = L + 1
        Worksheets("Feuil1").Cells(L, 1).Value = Element
        End If
        
Next Element

Not tested
A+
kjin

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 18 Mai 2010

• #9

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Merci kjin,

Il ne s'agissait effectivement là que d'une ligne à savoir écrire dans mon code.
Encore fallait-il en être capable!

J'ai fait moult recherches avant de poser ma question.
(Voir le rappel à l'ordre de Staple)

Mais je n'ai trouvé que des "Usines à gaz" pas bouffables…

Merci encore à toi. Cela fonctionne comme je cherchais à le faire.

C'est vraiment sympa de ta part.
Je te souhaite plein de bonnes choses.

Avec mes amitiés

Yann

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2010

• #10

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

message édité

 

Dernière édition: 14 Décembre 2010

Vote positif 0 Vote négatif

Paritec

XLDnaute Barbatruc

• 19 Mai 2010

• #11

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Bonjour Kjin Staple, Yves,
oui moi j'ai déjà remarqué que l'aide c'est parfait pour trouver quand on a déjà la réponse.
F1 c'est super la preuve tu tapes Mkdir bah non c'est pas bon c'est autre chose et pourtant c'est bien ce qu'il cherche.
Moralité F1 c'est bien mais, mais, surtout quand on a les réponses
a+
Bonne journée
Papou 🙂

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 19 Mai 2010

• #12

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Bonjour Kjin Staple, Pascal,

Je suis désolé Staple de m'être emporté hier soir. 😱
Sans doute par trop agacé en raison de mes soucis de fenêtres VBA
et des variables genre "Strchtvarsplufdc3" pour faire costaud!!!
C'est fou l'hébreux que j'ai lu avec une recherche de objFSO.CreateFolder sur Google…
(Sur XLD: résultat de la recherche=0)
Mais comme je suis un peu sot; je n'ai pas dû faire ce qu'il fallait.

Le:

Code:

MkDir Element.Path & "\TRUC"

De kjin
Je pouvais toujours chercher !!!
Bel exemple d'efficacité de sa part… 🙂

Et comme le dit à juste titre Paritec, les aides sont bien faites
quand l'on comprend tout, mais dans ce cas là l'on n'a pas vraiment besoin d'y aller.
(Petit iota: heureusement: ce n'est pas une généralité)

P.S. personnel: Il sait, par mes exemples, que je m'efforce toujours à
donner un nom aux variables, macros, modules, usf et c. qui aident à s'y retrouver.
Ca fait un peu lycéen des années 60, mais tant pis!
Cf le code du classeur joint à ma question.

Amicalement à tous, et bonne fin de journée.

Yann

 

Dernière édition: 19 Mai 2010

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 19 Mai 2010

• #13

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Bonjour,
Avec le FSO (Nécessite MS Scripting Runtime pour la recherche du dossier)
A+
kjin

 

Pièces jointes

• yann.xls

  32.5 KB · Affichages: 202
• yann.xls

  32.5 KB · Affichages: 228
• yann.xls

  32.5 KB · Affichages: 231

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 19 Mai 2010

• #14

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Bonjour kjin, et à ceux qui passeront par là.

21 lignes dans mon code!!!

Diantre! Et toi: 14 Lignes (-2 car écrire dans la feuille est accessoire) = 10 !!!

Que j'aime ça… Superbe… Pourquoi tu n'habites pas à coté!

Bon! Je vais faire comme d'hab.: traduire les variables en mots
qui m'aideront mieux à comprendre, et surtout me souvenir.

Questions subsidiaires:
FSO marche toujours en 2007?
J'fais comment maintenant pour effacer la caisse de sous-dossiers issus de mes tests, et qui n'ont pas lieu d'être dans certains dossiers? 🙂

J'ai déjà utilisé par ailleurs "Kill"…. Mais plus jamais.
Quand on se trompe de chemin: Vlan! "Mes documents" est vide
sans passer par la corbeille. Aie…J'ai pas aimé. 😡

Merci grandement pour tout ce que viens de m'apprendre.

Yann

P.S. D'autant que dans le chemin maintenant:
"C:\Documents and Settings\Locataire\Bureau\xxxxx\TRUC"
Le "xxxxx" est VARIABLE et écrit,soit dans la caption d'un Label d'un USF.
ou dans un SubItem d'une ListView.
A cette heure, je patine sur la syntaxe en raison de ce fichu xxxxx dont le nom
change.

 

Dernière édition: 19 Mai 2010

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Mai 2010

• #15

Re : Créer des sous-dossiers dans des dossiers existants avec "MkDir"

Bonjour à tous

Kjin: Intéressant mais un peu dangereux ton TRUC 😕.

Si on choisi C:\, il nous met le sous dossier TRUC dans chaque dossier. Il ne faudrait pas mettre un message d'avertissement avec: Attention vous aller créer un sous-dossier nommé TRUC dans chque dossier 😱?

Bon, je veux l'antidote pour supprimer tous ces sous-dossiers TRUC 😉.

 

Vote positif 0 Vote négatif