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

YANN-56

XLDnaute Barbatruc

• 19 Mai 2010

• #16

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

Bonjour Michel,

Tu as constaté comme moi que "Kill" est très très dangereux.
Depuis, j'utilise un autre code pour passer par la corbeille.

Pour ce qui est du message d'avertissement: tu as raison!
Mais j'en suis passé outre, car dans le cadre de mon application en chantier, l'acte est volontaire et les sous-dossiers ne peuvent être
créés que dans celui du fournisseur en cours.

Nous sommes donc deux à espérer avoir une idée sur la suppression
des dits dossiers (Et moi en plus la rédaction d'un chemin variable)

Amicalement

Yann

 

Vote positif 0 Vote négatif

K

kjin

XLDnaute Barbatruc

• 19 Mai 2010

• #17

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

Re,
Je n'est pas dit qu'il fallait s'en servir à tout va, j'ai juste répondu à la demande...😱

Code:

Sub SuppDossier()
Dim fs As Object, fld As Object, sfld As Object
Dim nDossier As String, x As Integer

Chemin = GetFolderName("Choisir un Dossier")
If Chemin = "" Then Exit Sub
    Set fs = CreateObject("Scripting.FileSystemObject")
    Set fld = fs.GetFolder(Chemin)
    For Each sfld In fld.SubFolders
        nDossier = sfld.path & "\TRUC"
        If fs.FolderExists(nDossier) Then fs.DeleteFolder (nDossier)
    Next

End Sub

Edit : Oui mais ça a effacé tous mes dossiers TRUC.... !

A+
kjin

 

Dernière édition: 19 Mai 2010

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 19 Mai 2010

• #18

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

A kjin,

Je n'ai pas testé... Je vais le faire.

Mais compte tenu de la pertinence de ce que tu m'a offert,
je ne doute pas du bon résultat.

Il me reste à chercher du coté de "\"DOSSIER CHANGEANT"\" & TRUC
car la rédaction de ce chemin variable me cause encore des soucis.

Je ne voudrais pas abuser de ta gentillesse.

Mais c'est de ta faute!!! T'es trop fort et sympa.

Merci encore à toi.

Yann

 

Vote positif 0 Vote négatif

MJ13

XLDnaute Barbatruc

• 19 Mai 2010

• #19

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

Re

Du coup, j'ai fait ceci (comme j'avais la liste des dossiers TRUC sur ma feuille 😉):

Code:

Sub Supprime_Sous_Dossiers_TRUC()
Stop
'On Error Resume Next
For Each cell In Range("A2:A43")
'MsgBox cell.Text
RmDir cell.Text
Next
End Sub

 

Vote positif 0 Vote négatif

YANN-56

XLDnaute Barbatruc

• 19 Mai 2010

• #20

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

Désolé Michel,

J'ai lu trop vite.

J'ai fait confusion entre ce que tu disais du code de kjin,
et mon allusion à "Kill" ...............
A annuler donc mon message relatif à ce sujet.

A +

 

Vote positif 0 Vote négatif

Staple1600

XLDnaute Barbatruc

• 19 Mai 2010

• #21

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

Bonsoir à tous


Merci spécialement à kjin d'avoir illustrer mon propos d'hier de 20h00
avec un code VBA utilisant ce que j'appelais Vbscript.

 

Vote positif 0 Vote négatif